summaryrefslogtreecommitdiffstats
path: root/stdlib/path-test.tl
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/path-test.tl')
-rw-r--r--stdlib/path-test.tl8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/path-test.tl b/stdlib/path-test.tl
index 491f63af..b7e75018 100644
--- a/stdlib/path-test.tl
+++ b/stdlib/path-test.tl
@@ -301,9 +301,9 @@
(let ((vol (car more)))
(cond
((nequal "" vol)
- (set (car comp) "")
- (set (cdr comp) (cdr more))
- vol)
+ (set (car comp) "")
+ (set (cdr comp) (cdr more))
+ vol)
(t :abs))))
((and (m^ #/[A-Za-z0-9]+:/ head) head)
(set (car comp) next)
@@ -311,7 +311,7 @@
(if (and (equal "" next) more)
^(:abs . ,head)
^(:rel . ,head)))))
- (if (equal head "") :abs))))
+ (if (and (equal head "") (cdr comp)) :abs))))
(defun rel-path (from to)
(let* ((fspl (path-split from))