www

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

test-meta.rkt (621B)

      1 #lang racket
      2 (require auto-syntax-e (for-syntax racket/base))
      3 (auto-syntax-case #'(1 2 3) ()
      4   [(x ...)
      5    (map add1 x)])
      6 
      7 (begin-for-syntax
      8   (require auto-syntax-e (for-syntax racket/base))
      9   (auto-syntax-case #'(1 2 3) ()
     10     [(x ...)
     11      (map add1 x)]))
     12 
     13 (begin-for-syntax
     14   (begin-for-syntax
     15     (require auto-syntax-e (for-syntax racket/base))
     16     (auto-syntax-case #'(1 2 3) ()
     17       [(x ...)
     18        (map add1 x)])))
     19 
     20 (begin-for-syntax
     21   (begin-for-syntax
     22     (begin-for-syntax
     23       (require auto-syntax-e (for-syntax racket/base))
     24       (auto-syntax-case #'(1 2 3) ()
     25         [(x ...)
     26          (map add1 x)]))))