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

call xform with string, check DarwinPorts lib location (PR 8784)

Browse Source 
svn: r6965
This commit is contained in:
Matthew Flatt 2007-07-25 18:46:25 +00:00
parent 6ab2806fe0
commit a2c0c852bc
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/make/setup-extension.ss
View File

@ -6,7 +6,6 @@
(lib "file.ss" "dynext")
(lib "file.ss")
(lib "list.ss")
(lib "process.ss")
(lib "etc.ss")
(lib "launcher.ss" "launcher")
(lib "xform.ss" "compiler")
@ -132,6 +131,8 @@
"/usr/local/gnu"
;; OS X fink location:
"/sw"
;; OS X DarwinPorts location:
"/opt/local"
;; Hack for NU PLT's convenience:
"/arch/gnu/packages/readline-4.2")))
@ -256,11 +257,16 @@
headers
extra-depends)
(lambda ()
(xform #f xform-src.c file.c (list (let-values ([(base name dir?)
(split-path xform-src.c)])
(if (path? base)
base
(current-directory)))
mz-inc-dir)))))
(xform #f
(if (path? xform-src.c)
(path->string xform-src.c)
xform-src.c)
file.c
(list (let-values ([(base name dir?)
(split-path xform-src.c)])
(if (path? base)
base
(current-directory)))
mz-inc-dir)))))
null))
#())))))))))))))