suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

touch

Browse Source
This commit is contained in:
Matthew Butterick 2016-08-01 21:10:34 -07:00
parent ff24afea7b
commit 9cee43af40
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
beautiful-racket/br/demo/stackerizer.rkt
View File

@ -3,7 +3,7 @@
(define-macro (stackerizer-module-begin EXPR ...) (define-macro (stackerizer-module-begin EXPR ...)
#'(#%module-begin #'(#%module-begin
(for-each displayln (reverse (flatten (list EXPR ...)))))) (stackerize EXPR ...)))
(provide (rename-out [stackerizer-module-begin #%module-begin])) (provide (rename-out [stackerizer-module-begin #%module-begin]))
#| #|
@ -18,6 +18,8 @@
[(+ EXPR0 EXPR ...) #'(list '+ EXPR0 (+ EXPR ...))]) [(+ 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 (define-op-macro OP-NAME IDENTITY-VAL)
#'(define-macro-cases OP-NAME #'(define-macro-cases OP-NAME