ref: 616c0d990146beeaac1d83b42b75a77067291f9c
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)))