Avoid name clashes with :parse-embedded and :embedded->preserves

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)