From b16e11a8a28bab776d8045a87dc45e552870f52e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 4 Mar 2018 08:39:05 -0800 Subject: [PATCH] source typo --- beautiful-racket-demo/stacker-demo/stacker.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/beautiful-racket-demo/stacker-demo/stacker.rkt b/beautiful-racket-demo/stacker-demo/stacker.rkt index f599279..9664def 100644 --- a/beautiful-racket-demo/stacker-demo/stacker.rkt +++ b/beautiful-racket-demo/stacker-demo/stacker.rkt @@ -1,10 +1,10 @@ #lang br/quicklang (define (read-syntax path port) - (define args (port->lines port)) - (define handle-datums (format-datums '(handle ~a) args)) + (define src-lines (port->lines port)) + (define src-datums (format-datums '(handle ~a) src-lines)) (define module-datum `(module stacker-mod stacker-demo/stacker - ,@handle-datums)) + ,@src-datums)) (datum->syntax #f module-datum)) (provide read-syntax)