Avoid name clashes with :parse-embedded and :embedded->preserves
This commit is contained in:
parent
d7bf235813
commit
b69c3a0894
|
@ -112,7 +112,9 @@
|
|||
(define (schema->module-stx name lookup-module-path schema #:filename [filename #f])
|
||||
(schema-check-problems! schema #:name name)
|
||||
`(module ,name racket/base
|
||||
(provide (all-defined-out))
|
||||
(provide (except-out (all-defined-out) :parse-embedded :embedded->preserves)
|
||||
(rename-out [:parse-embedded ,(format-symbol ":parse-embedded:~a" name)]
|
||||
[:embedded->preserves ,(format-symbol ":embedded->preserves:~a" name)]))
|
||||
,@(module-imports name schema lookup-module-path filename)
|
||||
,@(embedded-defs schema)
|
||||
(require preserves)
|
||||
|
|
Loading…
Reference in New Issue