From 602494596722ead722c67ffc2cd35e8e10cf27cb Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 20 Jun 2019 09:31:58 -0700 Subject: [PATCH] touchup --- beautiful-racket-demo/taco-compiler-demo/main.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/beautiful-racket-demo/taco-compiler-demo/main.rkt b/beautiful-racket-demo/taco-compiler-demo/main.rkt index 0a539ed..0e9d208 100644 --- a/beautiful-racket-demo/taco-compiler-demo/main.rkt +++ b/beautiful-racket-demo/taco-compiler-demo/main.rkt @@ -7,7 +7,7 @@ (for/list ([tok (in-port read-char ip)]) tok)) -(define (parse toks) +(define (parse src toks) (for/list ([tok (in-list toks)]) (define int (char->integer tok)) (for/list ([bit (in-range 7)]) @@ -17,8 +17,8 @@ (define (read-syntax src ip) (define toks (tokenize ip)) - (define parse-tree (parse toks)) + (define parse-tree (parse src toks)) (strip-context (with-syntax ([PT parse-tree]) - #'(module tacofied racket + #'(module tacofied br (for-each displayln 'PT))))) \ No newline at end of file