Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Avoiding double slashes on boundaries in make-path.

Browse source 
Full normalization isn't performed so already embedded doubles are not removed.
This commit is contained in:
Alex Shinn 2013-12-18 15:52:55 +09:00
parent db79366b7e
commit 4993769e65
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/chibi/pathname.scm
View file

@ -224,5 +224,10 @@
(lp (append (car ls) (cdr ls)) res))
(else
(let ((x (trim-trailing-slash (x->string (car ls)))))
(lp (cdr ls)
(if (string=? x "") res (cons x (cons "/" res)))))))))))
(cond
((string=? x "")
(lp (cdr ls) res))
((eqv? #\/ (string-ref x 0))
(lp (cdr ls) (cons x res)))
(else
(lp (cdr ls) (cons x (cons "/" res))))))))))))