www

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

test-define-temp-ids.rkt (813B)

      1 #lang racket
      2 (require (submod "../main.rkt" untyped))
      3 
      4 (with-syntax ([((foo ...) ...) #'((aa bb cc) (x1 x2))])
      5   (define-temp-ids "___~a.truc" ((foo ...) ...) #:first-base fst)
      6   (syntax->datum #'((___foo.truc ...) ...))
      7   (syntax->datum #'(fst ___fst.truc))
      8   (void))
      9 
     10 (with-syntax ([(foo ...) #'(aa bb cc)])
     11   (define-temp-ids "___~a.truc" (foo ...) #:first-base fst)
     12   (syntax->datum #'(___foo.truc ...))
     13   (syntax->datum #'(fst ___fst.truc))
     14   (void))
     15 
     16 (with-syntax ([foo #'aa])
     17   (define-temp-ids "___~a.truc" foo)
     18   (syntax->datum #'___foo.truc)
     19   (syntax->datum #'(fst ___fst.truc))
     20   (void))
     21 
     22 (with-syntax ([((foo ...) ...) #'((aa bb cc) (x1 x2))])
     23   (define-temp-ids "___~a.truc" ((foo ...) ...) #:first-base fst)
     24   (syntax->datum #'(___foo.truc ... ...))
     25   (syntax->datum #'(fst ___fst.truc))
     26   (void))