From 8475995ab251d99ef1f2e0bc20f0911fd346b3b2 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 23 Jul 2016 12:11:55 -0700 Subject: [PATCH] update --- beautiful-racket/br/demo/stacker.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/beautiful-racket/br/demo/stacker.rkt b/beautiful-racket/br/demo/stacker.rkt index d68624a..ffc207e 100644 --- a/beautiful-racket/br/demo/stacker.rkt +++ b/beautiful-racket/br/demo/stacker.rkt @@ -2,15 +2,15 @@ (define (read-syntax path port) (define args (port->lines port)) - (define arg-datums (format-datums '(handle ~a) args)) + (define handle-datums (format-datums '(handle ~a) args)) (define module-datum `(module stacker-mod br/demo/stacker - ,@arg-datums)) + ,@handle-datums)) (datum->syntax #f module-datum)) (provide read-syntax) -(define-macro (stacker-module-begin ARG-DATUM-STX ...) +(define-macro (stacker-module-begin DATUM-STX ...) #'(#%module-begin - ARG-DATUM-STX ... + DATUM-STX ... (display (pop-stack!)))) (provide (rename-out [stacker-module-begin #%module-begin]))