relocate renaming of reader-mode & reader-here-path

pull/15/merge
Matthew Butterick 11 years ago
parent 89d392e6da
commit f4043ea3a8

@ -27,12 +27,7 @@
(require pollen/top pollen/world) (require pollen/top pollen/world)
(provide (all-from-out pollen/top pollen/world)) (provide (all-from-out pollen/top pollen/world))
;; provide everything defined in pollen source file (provide (all-defined-out))
;; change the name of reader-here-path & reader-mode for local use
;; so they don't conflict if this source is imported into another
(provide (except-out (all-defined-out) reader-here-path reader-mode)
(prefix-out inner: reader-here-path)
(prefix-out inner: reader-mode))
body-exprs (... ...)) body-exprs (... ...))

@ -27,6 +27,12 @@
[(symbol? path-string) (symbol->string path-string)] [(symbol? path-string) (symbol->string path-string)]
[(equal? path-string "unsaved editor") path-string] [(equal? path-string "unsaved editor") path-string]
[else (path->string path-string)])) [else (path->string path-string)]))
;; change the name of reader-here-path & reader-mode for local use
;; so they don't conflict if this source is imported into another
(provide (except-out (all-defined-out) reader-here-path reader-mode)
(prefix-out inner: reader-here-path)
(prefix-out inner: reader-mode))
,(require+provide-project-require-files path-string) ,(require+provide-project-require-files path-string)
,@file-contents) ,@file-contents)
file-contents))) file-contents)))

Loading…
Cancel
Save