|
|
@ -22,7 +22,10 @@
|
|
|
|
(datum->syntax file-contents
|
|
|
|
(datum->syntax file-contents
|
|
|
|
`(module pollen-lang-module pollen
|
|
|
|
`(module pollen-lang-module pollen
|
|
|
|
(define reader-mode ',reader-mode)
|
|
|
|
(define reader-mode ',reader-mode)
|
|
|
|
(define reader-here-path ,(if (symbol? path-string) (symbol->string path-string) (path->string path-string)))
|
|
|
|
(define reader-here-path ,(cond
|
|
|
|
|
|
|
|
[(symbol? path-string) (symbol->string path-string)]
|
|
|
|
|
|
|
|
[(equal? path-string "unsaved editor") path-string]
|
|
|
|
|
|
|
|
[else (path->string path-string)]))
|
|
|
|
,(require+provide-project-require-files path-string)
|
|
|
|
,(require+provide-project-require-files path-string)
|
|
|
|
,@file-contents)
|
|
|
|
,@file-contents)
|
|
|
|
file-contents)))
|
|
|
|
file-contents)))
|
|
|
|