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])
|
(define (schema->module-stx name lookup-module-path schema #:filename [filename #f])
|
||||||
(schema-check-problems! schema #:name name)
|
(schema-check-problems! schema #:name name)
|
||||||
`(module ,name racket/base
|
`(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)
|
,@(module-imports name schema lookup-module-path filename)
|
||||||
,@(embedded-defs schema)
|
,@(embedded-defs schema)
|
||||||
(require preserves)
|
(require preserves)
|
||||||
|
|
Loading…
Reference in New Issue