uahgi2/main.rkt

#lang racket/base
(require "parser.rkt" "tokenizer.rkt")
(require syntax/strip-context)

(define (read-syntax path port)
  (define parse-tree (parse-tkns (make-tokenizer port path)))
  (strip-context
   #`(module uahgi2-mod uahgi2/expander
       #,parse-tree)))

(module+ reader
  (provide read-syntax))