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

fix broken translation of env variables into executable paths

Browse Source 
svn: r2648
This commit is contained in:
Matthew Flatt 2006-04-09 22:40:31 +00:00
parent 584624a02d
commit f1f301c966
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/dynext/compile-unit.ss
View File

@ -28,9 +28,10 @@
(make-parameter
(or (let ([p (or (getenv "MZSCHEME_DYNEXT_COMPILER")
(getenv "CC"))])
(if (and p (absolute-path? p))
(find-executable-path p #f)
p))
(and p
(if (absolute-path? p)
(string->path p)
(find-executable-path p #f))))
(case (system-type)
[(unix macosx) (get-unix-compile)]
[(windows) (get-windows-compile)]

7
collects/dynext/link-unit.ss
View File

@ -42,9 +42,10 @@
(define current-extension-linker
(make-parameter
(or (let ([p (getenv "MZSCHEME_DYNEXT_LINKER")])
(if (and p (absolute-path? p))
(find-executable-path p #f)
p))
(and p
(if (absolute-path? p)
(string->path p)
(find-executable-path p #f))))
(case (system-type)
[(unix macosx) (get-unix-linker)]
[(windows) (get-windows-linker)]