18 lines
385 B
Racket
18 lines
385 B
Racket
#lang racket
|
|
|
|
(require "named-scopes-test-def.rkt"
|
|
rackunit)
|
|
|
|
(define r1 (foo-macro +))
|
|
(define r2 (let ([x 2])
|
|
(bar-macro x)))
|
|
(define r3 (let ([x 3])
|
|
(baz-macro x)))
|
|
|
|
(define r4 (let ()
|
|
(define-syntax (quux stx)
|
|
(syntax-local-introduce #'+))
|
|
(quux)))
|
|
|
|
(check-equal? (list r1 r2 r3 r4) (list + 2 3 +))
|