home: hub: zuo

ref: 6f89679a2fdbe2fc0b0b26c08d04284d2ec54736
dir: /tests/macro.zuo/

View raw version 
#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)))