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)
(path->complete-path module-path)
module-path)])
(syntax-case (expand `(,#'module m racket/base
(#%require (only ,module-path)
racket/runtime-path)
(runtime-paths ,module-path))) (quote)
[(_ m mz (#%mb rfs req (quote (spec ...))))
(define e (expand `(,#'module m racket/kernel
(#%require (only ,module-path)
racket/runtime-path)
(runtime-paths ,module-path))))
(syntax-case e (quote)
[(_ m mz (#%mb req (quote (spec ...))))
(syntax->datum #'(spec ...))]
[_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
values