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

patch from Tomas Lozano-Perez

Browse Source 
svn: r2203
This commit is contained in:
Matthew Flatt 2006-02-13 01:35:32 +00:00
parent 79ef8f3f9c
commit b50b05dd5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/slibinit/init.ss
View File

@ -53,7 +53,7 @@
(let ([p (collection-path "mzlib")]) (let ([p (collection-path "mzlib")])
(let*-values ([(base name dir?) (split-path p)] (let*-values ([(base name dir?) (split-path p)]
[(base name dir?) (split-path base)]) [(base name dir?) (split-path base)])
(and (string? base) base)))) (and (path? base) (path->string base)))))
(case (system-type) (case (system-type)
((unix macosx) "/usr/local/lib/plt") ((unix macosx) "/usr/local/lib/plt")
((windows) "C:\\Program Files\\PLT") ((windows) "C:\\Program Files\\PLT")