generate more descriptive internal module name

pull/110/head
Matthew Butterick 9 years ago
parent 81f9b51bbc
commit 30823c839a

@ -22,7 +22,7 @@
[MODE-MARKDOWN (datum->syntax #'(EXPR (... ...)) world:mode-markdown)] [MODE-MARKDOWN (datum->syntax #'(EXPR (... ...)) world:mode-markdown)]
[SPLICING_TAG (datum->syntax #'(EXPR (... ...)) (world:current-splicing-tag))] [SPLICING_TAG (datum->syntax #'(EXPR (... ...)) (world:current-splicing-tag))]
[DOC (format-id #'(EXPR (... ...)) "~a" (world:current-main-export))] [DOC (format-id #'(EXPR (... ...)) "~a" (world:current-main-export))]
[DOC-RAW (generate-temporary)]); prevents conflicts with other imported Pollen sources [DOC-RAW (generate-temporary 'pollen-)]); prevents conflicts with other imported Pollen sources
(replace-context #'(EXPR (... ...)) (replace-context #'(EXPR (... ...))
#'(#%module-begin #'(#%module-begin
(module META-MOD racket/base (module META-MOD racket/base

Loading…
Cancel
Save