www

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

test-8-0.rkt (283B)


      1 #lang racket/base
      2 
      3 (require (only-in syntax/parse/experimental/template ?? template)
      4          (only-in syntax/parse #;syntax-parse #;attribute)
      5          (only-in "../parse.rkt" syntax-parse ~optional nat))
      6 
      7 (syntax-parse #'(#:kw)
      8   [({~optional z:nat} _)
      9    (template (x (?? z) y))])