suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix `raco exe'

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-19 04:05:16 -06:00
parent 27603fafba
commit 0736e62a49
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
racket/lib/collects/compiler/embed-unit.rkt
View File

@ -446,14 +446,16 @@
(if (path? module-path) (if (path? module-path)
(path->complete-path module-path) (path->complete-path module-path)
module-path)]) module-path)])
(syntax-case (expand `(,#'module m racket/base (define e (expand `(,#'module m racket/kernel
(#%require (only ,module-path) (#%require (only ,module-path)
racket/runtime-path) racket/runtime-path)
(runtime-paths ,module-path))) (quote) (runtime-paths ,module-path))))
[(_ m mz (#%mb rfs req (quote (spec ...)))) (syntax-case e (quote)
[(_ m mz (#%mb req (quote (spec ...))))
(syntax->datum #'(spec ...))] (syntax->datum #'(spec ...))]
[_else (error 'create-empbedding-executable [_else (error 'create-empbedding-executable
"expansion mismatch when getting external paths")]))))] "expansion mismatch when getting external paths: ~e"
(syntax->datum e))]))))]
[extra-runtime-paths (filter [extra-runtime-paths (filter
values values