Provide everything
This commit is contained in:
parent
4be72744a4
commit
6441a07c97
28
main.rkt
28
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
|
||||
…
|
||||
…+)
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user