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