ref: 0504c9d55828c1c1e4c34ec0867c9a987528f269
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)))