v6.3-exception
Matthew Butterick 7 years ago
parent 91f38b554c
commit 72d551b38b

@ -1,11 +1,11 @@
#lang br/quicklang #lang br/quicklang
(require "parser.rkt" "tokenizer.rkt") (require "parser.rkt" "tokenizer.rkt")
(module+ reader
(provide read-syntax))
(define (read-syntax path port) (define (read-syntax path port)
(define parse-tree (parse path (make-tokenizer port path))) (define parse-tree (parse path (make-tokenizer port path)))
(strip-bindings (strip-bindings
#`(module basic-mod basic-demo-2a/expander #`(module basic-mod basic-demo-2a/expander
#,parse-tree))) #,parse-tree)))
(module+ reader
(provide read-syntax))

Loading…
Cancel
Save