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

fix mzc --exe

Browse Source 
svn: r8975
This commit is contained in:
Matthew Flatt 2008-03-15 02:04:55 +00:00
parent ae75de476f
commit d514f4f32e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/embed-unit.ss
View File

@ -398,12 +398,12 @@
null null)
(unbox codes)))]
[code
(let-values ([(imports fs-imports ft-imports fl-imports) (module-compiled-imports code)])
(let ([importss (module-compiled-imports code)])
(let ([all-file-imports (filter (lambda (x)
(let-values ([(x base) (module-path-index-split x)])
(not (and (pair? x)
(eq? 'quote (car x))))))
(append imports fs-imports ft-imports fl-imports))]
(apply append (map cdr importss)))]
[extra-paths (get-extra-imports filename code)])
(let ([sub-files (map (lambda (i) (normalize (resolve-module-path-index i filename)))
all-file-imports)]