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)