From 9cee43af40bf76617345c2e18c80bae07e2ebfea Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 1 Aug 2016 21:10:34 -0700
Subject: [PATCH] touch

---
 beautiful-racket/br/demo/stackerizer.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/beautiful-racket/br/demo/stackerizer.rkt b/beautiful-racket/br/demo/stackerizer.rkt
index 398d0e4..f6637ed 100644
--- a/beautiful-racket/br/demo/stackerizer.rkt
+++ b/beautiful-racket/br/demo/stackerizer.rkt
@@ -3,7 +3,7 @@
 
 (define-macro (stackerizer-module-begin EXPR ...)
   #'(#%module-begin
-     (for-each displayln (reverse (flatten (list EXPR ...))))))
+     (stackerize EXPR ...)))
 (provide (rename-out [stackerizer-module-begin #%module-begin]))
 
 #|
@@ -18,6 +18,8 @@
   [(+ EXPR0 EXPR ...) #'(list '+ EXPR0 (+ EXPR ...))])
 |#
 
+(define (stackerize . args)
+  (for-each displayln (reverse (flatten args))))
 
 (define-macro (define-op-macro OP-NAME IDENTITY-VAL)
   #'(define-macro-cases OP-NAME