v6.3-exception
Matthew Butterick 7 years ago
parent 5e859a7440
commit 3a6f7c407a

@ -186,7 +186,7 @@
(check-equal? fortytwo 42) (check-equal? fortytwo 42)
(check-equal? (let () (check-equal? (let ()
(define-macro (foo X) (define-macro (foo X)
(with-syntax ([zam +]) (with-syntax ([zam #'+])
#'(zam X X))) (foo 42)) 84) #'(zam X X))) (foo 42)) 84)
(begin (begin
(define-macro (redefine ID) #'(define ID 42)) (define-macro (redefine ID) #'(define ID 42))

Loading…
Cancel
Save