29 lines
885 B
Racket
29 lines
885 B
Racket
#lang racket/base
|
|
(require subtemplate/private/ddd-forms
|
|
stxparse-info/case
|
|
stxparse-info/parse
|
|
subtemplate/private/unsyntax-preparse
|
|
subtemplate/private/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/private/unsyntax-preparse
|
|
(rename-out
|
|
[template-ddd template]
|
|
[subtemplate-ddd subtemplate]
|
|
[quasitemplate-ddd quasitemplate]
|
|
[quasisubtemplate-ddd quasisubtemplate]
|
|
[subtemplate-ddd syntax]
|
|
[quasisubtemplate-ddd quasisyntax])
|
|
;; subtemplate/private/top-subscripts
|
|
;; => #%top
|
|
(all-from-out subtemplate/private/top-subscripts)
|
|
;; aliases
|
|
…
|
|
…+) |