From 2df0d0d87020f051b1f4e7deffff046360978a3e Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 9 Aug 2016 12:03:55 -0700
Subject: [PATCH] update stackerizer

---
 beautiful-racket/br/demo/stackerizer-test.rkt |  4 +-
 beautiful-racket/br/demo/stackerizer.rkt      | 39 +++++++++----------
 2 files changed, 21 insertions(+), 22 deletions(-)

diff --git a/beautiful-racket/br/demo/stackerizer-test.rkt b/beautiful-racket/br/demo/stackerizer-test.rkt
index 2a0a2d8..30e125d 100644
--- a/beautiful-racket/br/demo/stackerizer-test.rkt
+++ b/beautiful-racket/br/demo/stackerizer-test.rkt
@@ -1,2 +1,2 @@
-#lang s-exp br/demo/stackerizer
-(+ 3 (* 6 (*) 2 (+ 145 56 3 6 (* 3 56436 9)) 15 22))
\ No newline at end of file
+#lang s-exp "stackerizer.rkt"
+(* 3 (+ 8 4))
\ No newline at end of file
diff --git a/beautiful-racket/br/demo/stackerizer.rkt b/beautiful-racket/br/demo/stackerizer.rkt
index 0da730a..a318e17 100644
--- a/beautiful-racket/br/demo/stackerizer.rkt
+++ b/beautiful-racket/br/demo/stackerizer.rkt
@@ -1,28 +1,27 @@
 #lang br/quicklang
 (provide + *)
 
-(define-macro (stackerizer-module-begin EXPR ...)
+(define-macro (stackerizer-mb EXPR ...)
   #'(#%module-begin
      (for-each displayln (reverse (flatten EXPR ...)))))
-(provide (rename-out [stackerizer-module-begin #%module-begin]))
+(provide (rename-out [stackerizer-mb #%module-begin]))
 
-#|
-(define-macro-cases *
-  [(*) #'1]
-  [(* EXPR0) #'EXPR0]
-  [(* EXPR0 EXPR ...) #'(list '* EXPR0 (* EXPR ...))])
+(define-macro (define-ops OP ...)
+  #'(begin
+      (define-macro-cases OP
+        [(OP FIRST) #'FIRST]
+        [(OP FIRST NEXT (... ...))
+         #'(list 'OP FIRST (OP NEXT (... ...)))]) 
+      ...))
 
-(define-macro-cases +
-  [(+) #'0]
-  [(+ EXPR0) #'EXPR0]
-  [(+ EXPR0 EXPR ...) #'(list '+ EXPR0 (+ EXPR ...))])
-|#
+(define-ops + *)
 
-(define-macro (define-op-macro OP-NAME IDENTITY-VAL)
-  #'(define-macro-cases OP-NAME
-      [(OP-NAME) #'IDENTITY-VAL]
-      [(OP-NAME EXPR0) #'EXPR0]
-      [(OP-NAME EXPR0 EXPR (... ...)) #'(list 'OP-NAME EXPR0 (OP-NAME EXPR (... ...)))]))
-
-(define-op-macro * 1)
-(define-op-macro + 0)
\ No newline at end of file
+(module+ test 
+  (require rackunit)
+  (check-equal? (with-output-to-string (λ () (dynamic-require "stackerizer-test.rkt" #f)))
+                "4
+8
++
+3
+*
+"))
\ No newline at end of file