remove gensym in module name

pull/111/head
Matthew Butterick 9 years ago
parent e9a6fd2673
commit b94354ee63

@ -38,21 +38,21 @@
(strip-context (strip-context
(with-syntax ([HERE-KEY (format-id #f "~a" (setup:here-path-key))] (with-syntax ([HERE-KEY (format-id #f "~a" (setup:here-path-key))]
[HERE-PATH reader-here-path] [HERE-PATH reader-here-path]
[POLLEN-MOD (format-symbol "~a" (gensym))] ; prevents conflicts with other imported Pollen sources [POLLEN-MOD-NAME 'pollen-module]
[PARSER-MODE-VALUE (format-symbol "~a" parser-mode)] [PARSER-MODE-VALUE (format-symbol "~a" parser-mode)]
[DIRECTORY-REQUIRES (require+provide-directory-require-files path-string)] [DIRECTORY-REQUIRES (require+provide-directory-require-files path-string)]
[(SOURCE-LINE ...) source-stx] [(SOURCE-LINE ...) source-stx]
[DOC (format-id #f "~a" (setup:main-export))]) [DOC (format-id #f "~a" (setup:main-export))])
#'(module runtime-wrapper racket/base #'(module runtime-wrapper racket/base
(module POLLEN-MOD pollen (module POLLEN-MOD-NAME pollen
(define-meta HERE-KEY HERE-PATH) (define-meta HERE-KEY HERE-PATH)
(define parser-mode 'PARSER-MODE-VALUE) (define parser-mode 'PARSER-MODE-VALUE)
(provide (except-out (all-defined-out) parser-mode) (provide (except-out (all-defined-out) parser-mode)
(prefix-out inner: parser-mode)) ; avoids conflicts with importing modules (prefix-out inner: parser-mode)) ; avoids conflicts with importing modules
DIRECTORY-REQUIRES DIRECTORY-REQUIRES
SOURCE-LINE ...) SOURCE-LINE ...)
(require (submod pollen/private/runtime-config show) 'POLLEN-MOD) (require (submod pollen/private/runtime-config show) 'POLLEN-MOD-NAME)
(provide (all-from-out 'POLLEN-MOD)) (provide (all-from-out 'POLLEN-MOD-NAME))
(show DOC inner:parser-mode HERE-PATH))))) ; HERE-PATH acts as "local" runtime config (show DOC inner:parser-mode HERE-PATH))))) ; HERE-PATH acts as "local" runtime config
(syntax-property parsed-syntax (syntax-property parsed-syntax
'module-language 'module-language

@ -1 +1 @@
1461035646 1462154178

Loading…
Cancel
Save