nit

6 years ago · 4b5098415d
parent 900a7d08f5
commit 4b5098415d
1 changed files with 3 additions and 2 deletions
--- a/beautiful-racket-demo/simplex-demo/main.rkt
+++ b/beautiful-racket-demo/simplex-demo/main.rkt
@ -28,8 +28,9 @@
  #'(ID ARG ...))

 (define (read-syntax src ip)
-  (define pt (parse (λ () (lex ip))))
+  (define token-thunk (λ () (lex ip)))
+  (define parse-tree (parse token-thunk))
  (strip-context
-   (with-syntax ([PT pt])
+   (with-syntax ([PT parse-tree])
     #'(module mod-name simplex-demo
         PT))))