pull/10/head
Matthew Butterick 7 years ago
parent b2ad7fbd25
commit 40786d7010

@ -17,12 +17,12 @@
(define stack empty) (define stack empty)
(define (pop-stack!) (define (pop-stack!)
(define item (first stack)) (define arg (first stack))
(set! stack (rest 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]) (define (handle [arg #f])
(cond (cond

@ -1,10 +1,9 @@
#lang br/quicklang #lang br/quicklang
(provide + *) (provide + *)
(define-macro (stackerizer-mb EXPR ...) (define-macro (stackerizer-mb EXPR)
#'(#%module-begin #'(#%module-begin
(for-each displayln (for-each displayln (reverse (flatten EXPR)))))
(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 ...)

Loading…
Cancel
Save