edits

beautiful-racket-demo/stacker-demo/stacker.rkt

@@ -17,12 +17,12 @@
 (define stack empty)
 
 (define (pop-stack!)
-  (define item (first stack))
+  (define arg (first stack))
   (set! stack (rest stack))
-  item)
+  arg)
 
-(define (push-stack! item)
+(define (push-stack! arg)
-  (set! stack (cons item stack)))
+  (set! stack (cons arg stack)))
 
 (define (handle [arg #f])
   (cond

beautiful-racket-demo/stackerizer-demo/stackerizer.rkt

@@ -1,10 +1,9 @@
 #lang br/quicklang
 (provide + *)
 
-(define-macro (stackerizer-mb EXPR ...)
+(define-macro (stackerizer-mb EXPR)
   #'(#%module-begin
-     (for-each displayln
+     (for-each displayln (reverse (flatten EXPR)))))
-               (reverse (flatten (list EXPR ...))))))
 (provide (rename-out [stackerizer-mb #%module-begin]))
 
 (define-macro (define-ops OP ...)