repair read-syntax

8 years ago · 58ae9d5c08
parent 869f59cc1c
commit 58ae9d5c08
1 changed files with 3 additions and 3 deletions
--- a/beautiful-racket/br/demo/jsonic-2/reader.rkt
+++ b/beautiful-racket/br/demo/jsonic-2/reader.rkt
@ -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)