repair visibility of `metas` submodule

pull/127/head
Matthew Butterick 8 years ago
parent 0d1569b36f
commit 43c986bd9d

@ -42,15 +42,19 @@
[DIRECTORY-REQUIRES (require+provide-directory-require-files path-string)] [DIRECTORY-REQUIRES (require+provide-directory-require-files path-string)]
[SOURCE-LINES source-stx] [SOURCE-LINES source-stx]
[DOC (setup:main-export)] [DOC (setup:main-export)]
[META-MOD (setup:meta-export)]
[PARSER-MODE-FROM-READER parser-mode-from-reader] [PARSER-MODE-FROM-READER parser-mode-from-reader]
[POLLEN-MODULE-SYNTAX (let ([mod-stx #'(module POLLEN-MOD-NAME pollen [POLLEN-MODULE-SYNTAX (let ([mod-stx #'(module POLLEN-MOD-NAME pollen
(define-meta HERE-KEY HERE-PATH) (define-meta HERE-KEY HERE-PATH)
(provide (all-defined-out)) (provide (all-defined-out))
DIRECTORY-REQUIRES DIRECTORY-REQUIRES
. SOURCE-LINES)]) . SOURCE-LINES)])
(syntax-property mod-stx 'parser-mode-from-reader parser-mode-from-reader))]) (syntax-property mod-stx 'parser-mode-from-reader parser-mode-from-reader))])
#'(module runtime-wrapper racket/base #'(module runtime-wrapper racket/base
POLLEN-MODULE-SYNTAX POLLEN-MODULE-SYNTAX
(module META-MOD racket/base
(require (submod ".." POLLEN-MOD-NAME META-MOD))
(provide (all-from-out (submod ".." POLLEN-MOD-NAME META-MOD))))
(require (submod pollen/private/runtime-config show) 'POLLEN-MOD-NAME) (require (submod pollen/private/runtime-config show) 'POLLEN-MOD-NAME)
(provide (all-from-out 'POLLEN-MOD-NAME)) (provide (all-from-out 'POLLEN-MOD-NAME))
(show DOC 'PARSER-MODE-FROM-READER HERE-PATH))))) ; HERE-PATH acts as "local" runtime config (show DOC 'PARSER-MODE-FROM-READER HERE-PATH))))) ; HERE-PATH acts as "local" runtime config
@ -83,7 +87,7 @@
(define my-make-drracket-buttons (dynamic-require 'pollen/private/drracket-buttons 'make-drracket-buttons)) (define my-make-drracket-buttons (dynamic-require 'pollen/private/drracket-buttons 'make-drracket-buttons))
(my-make-drracket-buttons my-command-char)])] (my-make-drracket-buttons my-command-char)])]
[(drracket:indentation) [(drracket:indentation)
(dynamic-require 'scribble/private/indentation 'determine-spaces)] (dynamic-require 'scribble/private/indentation 'determine-spaces)]
[else default])))) [else default]))))
(define-syntax-rule (reader-module-begin mode expr-to-ignore ...) (define-syntax-rule (reader-module-begin mode expr-to-ignore ...)

@ -1 +1 @@
1468998858 1469050349

Loading…
Cancel
Save