diff --git a/main.rkt b/main.rkt index 7bc35af..f616cc9 100644 --- a/main.rkt +++ b/main.rkt @@ -1 +1,29 @@ #lang racket/base +(require subtemplate/ddd-forms + stxparse-info/case + stxparse-info/parse + subtemplate/unsyntax-preparse + subtemplate/top-subscripts + (only-in racket/base [... …]) + (only-in stxparse-info/parse [...+ …+])) +(provide + ;; ddd-forms + ?@ ?@@ ?? ?attr ?cond ?if begin define let #%app #%intef-begin + ;; stxparse-info/case + (all-from-out stxparse-info/case) + ;; stxparse-info/parse + (all-from-out stxparse-info/parse) + ;; subtemplate/unsyntax-preparse + (rename-out + [template-ddd template] + [subtemplate-ddd subtemplate] + [quasitemplate-ddd quasitemplate] + [quasisubtemplate-ddd quasisubtemplate] + [subtemplate-ddd syntax] + [quasisubtemplate-ddd quasisyntax]) + ;; subtemplate/top-subscripts + ;; => #%top + (all-from-out subtemplate/top-subscripts) + ;; aliases + … + …+) \ No newline at end of file diff --git a/unsyntax-preparse.rkt b/unsyntax-preparse.rkt index 5834629..43c3189 100644 --- a/unsyntax-preparse.rkt +++ b/unsyntax-preparse.rkt @@ -1,6 +1,8 @@ #lang racket/base -(provide quasitemplate-ddd +(provide template-ddd + subtemplate-ddd + quasitemplate-ddd quasisubtemplate-ddd) (require (rename-in stxparse-info/parse/experimental/template