From e8a3ffae8a34101f18d56edfa18a9db2f6718068 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 22 Apr 2016 16:04:16 -0700 Subject: [PATCH] touchups --- beautiful-racket/br/demo/stacker.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/beautiful-racket/br/demo/stacker.rkt b/beautiful-racket/br/demo/stacker.rkt index 4808737..a226a2f 100644 --- a/beautiful-racket/br/demo/stacker.rkt +++ b/beautiful-racket/br/demo/stacker.rkt @@ -4,9 +4,9 @@ (define (make-datum str) (format-datum '(dispatch ~a) str)) (define src-exprs (map make-datum src-strs)) (strip-context - (inject-syntax ([#'(SRC-EXPR ...) src-exprs]) + (inject-syntax ([#'(_SRC-EXPR ...) src-exprs]) #'(module stacker-mod br/demo/stacker - SRC-EXPR ...)))) + _SRC-EXPR ...)))) (provide read-syntax) (define #'(stacker-module-begin _READER-LINE ...)