main.rkt (1376B)
1 #lang racket/base 2 3 (require generic-syntax-expanders 4 "private/parameters.rkt" 5 "private/no-order.rkt" 6 "private/before-after.rkt" 7 "private/pre.rkt" 8 "private/post.rkt" 9 "private/global.rkt" 10 "private/optional.rkt" 11 "private/mixin.rkt" 12 "private/try-attribute.rkt" 13 "private/nop.rkt" 14 (for-template "private/define-syntax+simple-api.rkt") 15 syntax/parse) 16 17 ;; re-provide pattern as provided by syntax/parse, so that 18 ;; define-eh-alternative-mixin can recognize uses of (pattern …) 19 (provide pattern) 20 21 (provide #;define-splicing-syntax-class-with-eh-mixins 22 #;define-syntax-class-with-eh-mixins 23 define-eh-alternative-mixin 24 (expander-out eh-mixin) 25 ~seq-no-order 26 ~no-order 27 ~order-point 28 order-point< 29 order-point> 30 try-order-point< 31 try-order-point> 32 ~before 33 ~after 34 ~try-before 35 ~try-after 36 ~lift-rest 37 ~as-rest 38 ~mixin 39 ~post-check 40 ~post-fail 41 ~maybe/empty 42 ~named-seq 43 ~nop 44 ~optional/else 45 ~global-or 46 ~global-and 47 ~global-counter 48 (for-template define-syntax/parse+simple) 49 define/syntax-parse+simple 50 try-attribute 51 if-attribute)