ref: 67b2ebda49f691acfd676bb5f662e4e7e5471000
dir: /tests/macro.zuo/
#lang zuo (require "harness.zuo") (alert "macros") (define lang-name 'zuo) (include "macro-common.zuo") (let ([five 5]) (define-syntax (let-five stx) (list (quote-syntax let) (list (list (cadr stx) 'five)) ; can get captured (cadr (cdr stx)))) (check (let-five x (list x x)) '(5 5)) (check (let-five x (let ([five 10]) (list x x))) '(5 5)) (check (let ([five 10]) (let-five x (list x x))) '(10 10)))