touchups

2016-04-22 16:04:16 -07:00 · 2016-04-22 16:04:16 -07:00 · e8a3ffae8a
commit e8a3ffae8a
parent 7f72961915
1 changed files with 2 additions and 2 deletions
--- 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 ...)