mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

update comments

Browse Source
pull/160/head
Matthew Butterick 7 years ago
parent 2668d2a4fd
commit 0e5c92491d
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File

2
pollen/private/main-base.rkt
Unescape Escape View File

@ -55,7 +55,7 @@
;; prevents conflicts with other imported Pollen sources ;; prevents conflicts with other imported Pollen sources
[DOC-RAW (datum->syntax #'here (syntax->datum (generate-temporary 'pollen-)))]) [DOC-RAW (datum->syntax #'here (syntax->datum (generate-temporary 'pollen-)))])
#'(#%module-begin #'(#%module-begin
(require pollen/top) ; could be at top of this module, but better to contain it (require pollen/top) ; we could get this via 'inner, but then we'd have to avoid exporting it
(module META-MOD-ID racket/base (module META-MOD-ID racket/base
(provide METAS-ID) (provide METAS-ID)

11
pollen/private/reader-base.rkt
Unescape Escape View File

@ -35,18 +35,19 @@
(define reader-here-path (path-string->here-path path-string)) (define reader-here-path (path-string->here-path path-string))
(define parser-mode-from-reader (infer-parser-mode reader-mode reader-here-path)) (define parser-mode-from-reader (infer-parser-mode reader-mode reader-here-path))
(strip-context (strip-context
(with-syntax* ([HERE-KEY (setup:here-path-key)] (with-syntax* ([POLLEN-MOD-NAME 'pollen-module]
;; these exist only in the reader because they are specific to file-based Pollen sources.
;; an inline Pollen submodule doesn't have "pollen.rkt" or `here-path`
[POLLEN-REQUIRE-AND-PROVIDES (require+provide-directory-require-files path-string)]
[HERE-KEY (setup:here-path-key)]
[HERE-PATH reader-here-path] [HERE-PATH reader-here-path]
[POLLEN-MOD-NAME 'pollen-module]
[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)] [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)) POLLEN-REQUIRE-AND-PROVIDES
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

2
pollen/private/ts.rktd
Unescape Escape View File

@ -1 +1 @@
1511919597 1512066410

Write Preview
Loading…
Cancel
Save