From 58ae9d5c08a96d926ca754d6dfa1d4c7f0b0ae90 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 8 Dec 2016 15:58:38 -0800 Subject: [PATCH] repair read-syntax --- beautiful-racket/br/demo/jsonic-2/reader.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/beautiful-racket/br/demo/jsonic-2/reader.rkt b/beautiful-racket/br/demo/jsonic-2/reader.rkt index 01936ab..288a82e 100644 --- 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) \ No newline at end of file +(provide read-syntax)