main.rkt (1313B)
1 #lang racket/base 2 (require racket/require 3 subtemplate/private/ddd-forms 4 (subtract-in racket/syntax stxparse-info/case) 5 stxparse-info/case 6 stxparse-info/parse 7 subtemplate/private/unsyntax-preparse 8 subtemplate/private/top-subscripts 9 (except-in stxparse-info/parse/experimental/template 10 template 11 quasitemplate 12 template/loc 13 quasitemplate/loc 14 ?@ 15 ??) 16 (only-in racket/base [... …]) 17 (only-in stxparse-info/parse [...+ …+])) 18 (provide 19 ;; ddd-forms 20 ?@ ?@@ ?? ?attr ?cond ?if begin let #%app #%intdef-begin 21 ;; racket/syntax ∖ stxparse-info/case 22 (all-from-out racket/syntax) 23 ;; stxparse-info/case 24 (all-from-out stxparse-info/case) 25 ;; stxparse-info/parse 26 (all-from-out stxparse-info/parse) 27 ;; stxparse-info/parse/experimental/template 28 (all-from-out stxparse-info/parse/experimental/template) 29 ;; subtemplate/private/unsyntax-preparse 30 (rename-out 31 [template-ddd template] 32 [subtemplate-ddd subtemplate] 33 [quasitemplate-ddd quasitemplate] 34 [quasisubtemplate-ddd quasisubtemplate]) 35 ;; subtemplate/private/top-subscripts 36 ;; => #%top 37 (all-from-out subtemplate/private/top-subscripts) 38 ;; aliases 39 … 40 …+)