From 4b5098415d1e4a0bac4dba6bb41dd9f0ddb9ead1 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 8 Jul 2018 08:49:31 -0700 Subject: [PATCH] nit --- beautiful-racket-demo/simplex-demo/main.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/beautiful-racket-demo/simplex-demo/main.rkt b/beautiful-racket-demo/simplex-demo/main.rkt index a0e0015..e3ea920 100644 --- 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)))) \ No newline at end of file