touchup

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)))))