www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

named-scopes-test-use.rkt (385B)

      1 #lang racket
      2 
      3 (require "named-scopes-test-def.rkt"
      4          rackunit)
      5 
      6 (define r1 (foo-macro +))
      7 (define r2 (let ([x 2])
      8                 (bar-macro x)))
      9 (define r3 (let ([x 3])
     10                 (baz-macro x)))
     11 
     12 (define r4 (let ()
     13              (define-syntax (quux stx)
     14                (syntax-local-introduce #'+))
     15              (quux)))
     16 
     17 (check-equal? (list r1 r2 r3 r4) (list + 2 3 +))