scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Let PATH-LIST->FILE-NAME return "/" for '(""). 

'("") is the value returned by (split-file-name "/") and
PATH-LIST->FILE-NAME is supposed to be the inverse of SPLIT-FILE-NAME.
This commit is contained in:
mainzelm 2003-12-19 08:27:34 +00:00
parent 2aac5914d6
commit 6b5e75bd3f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/fname.scm
View File

@ -115,7 +115,9 @@
(apply string-append (apply string-append
(if (and (pair? pathlist) (if (and (pair? pathlist)
(string=? "" (car pathlist))) (string=? "" (car pathlist)))
w/slashes ; Absolute path not relocated. (if (null? (cdr pathlist)) ; special case for pathlist = '("")
'("/")
w/slashes) ; Absolute path not relocated.
(cons (file-name-as-directory root) w/slashes))))) (cons (file-name-as-directory root) w/slashes)))))