ref: f9f86521cbe7a79fc2fb6c70cb4e741d1ce93391
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)))