repair read-syntax

dev-srcloc
Matthew Butterick 8 years ago
parent 869f59cc1c
commit 58ae9d5c08

@ -2,9 +2,9 @@
(require "tokenizer.rkt" "parser.rkt")
(define/contract (read-syntax path port)
(path? input-port? . -> . syntax?)
(any/c input-port? . -> . syntax?)
(define parse-tree (parse path (tokenize port)))
(define module-datum `(module jsonic-module jsonic/expander
(define module-datum `(module jsonic-module br/demo/jsonic-2/expander
,parse-tree))
(datum->syntax #f module-datum))
(provide read-syntax)
(provide read-syntax)

Loading…
Cancel
Save