|
|
@ -3,7 +3,8 @@
|
|
|
|
|
|
|
|
|
|
|
|
(define-macro (stackerizer-mb EXPR ...)
|
|
|
|
(define-macro (stackerizer-mb EXPR ...)
|
|
|
|
#'(#%module-begin
|
|
|
|
#'(#%module-begin
|
|
|
|
(for-each displayln (reverse (flatten EXPR ...)))))
|
|
|
|
(for-each displayln
|
|
|
|
|
|
|
|
(reverse (flatten (list EXPR ...))))))
|
|
|
|
(provide (rename-out [stackerizer-mb #%module-begin]))
|
|
|
|
(provide (rename-out [stackerizer-mb #%module-begin]))
|
|
|
|
|
|
|
|
|
|
|
|
(define-macro (define-ops OP ...)
|
|
|
|
(define-macro (define-ops OP ...)
|
|
|
|