From b69c3a089452e60e0646f5c19d84259bfb6efc0a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 28 May 2021 10:33:28 +0200 Subject: [PATCH] Avoid name clashes with :parse-embedded and :embedded->preserves --- .../racket/preserves/preserves-schema/compiler.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/implementations/racket/preserves/preserves-schema/compiler.rkt b/implementations/racket/preserves/preserves-schema/compiler.rkt index 33f39f5..c45a0eb 100644 --- a/implementations/racket/preserves/preserves-schema/compiler.rkt +++ b/implementations/racket/preserves/preserves-schema/compiler.rkt @@ -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)