main.rkt

#lang racket/base
(require racket/require
         subtemplate/private/ddd-forms
         (subtract-in racket/syntax stxparse-info/case)
         stxparse-info/case
         stxparse-info/parse
         subtemplate/private/unsyntax-preparse
         subtemplate/private/top-subscripts
         (except-in stxparse-info/parse/experimental/template
                    template
                    quasitemplate
                    template/loc
                    quasitemplate/loc
                    ?@
                    ??)
         (only-in racket/base [... …])
         (only-in stxparse-info/parse [...+ …+]))
(provide
 ;; ddd-forms
 ?@ ?@@ ?? ?attr ?cond ?if begin let #%app #%intdef-begin
 ;; racket/syntax ∖ stxparse-info/case
 (all-from-out racket/syntax)
 ;; stxparse-info/case
 (all-from-out stxparse-info/case)
 ;; stxparse-info/parse
 (all-from-out stxparse-info/parse)
 ;; stxparse-info/parse/experimental/template
 (all-from-out stxparse-info/parse/experimental/template)
 ;; subtemplate/private/unsyntax-preparse
 (rename-out
  [template-ddd template]
  [subtemplate-ddd subtemplate]
  [quasitemplate-ddd quasitemplate]
  [quasisubtemplate-ddd quasisubtemplate])
 ;; subtemplate/private/top-subscripts
 ;; => #%top
 (all-from-out subtemplate/private/top-subscripts)
 ;; aliases
 …
 …+)