todo.rkt (377B)
1 #lang racket 2 3 (module m racket 4 (require syntax/parse 5 syntax/parse/experimental/template) 6 (provide (rename-out [template syntax] 7 [quasitemplate quasisyntax]) 8 (all-from-out syntax/parse 9 syntax/parse/experimental/template))) 10 11 (require 'm) 12 13 (syntax-parse #'(a b) 14 [(x (~optional y) z) 15 #'(x (?? y 1) z)])