Fix parent-directory on /

2007-11-12 01:56:40 -05:00 · 2007-11-12 01:56:40 -05:00 · 6f19e210b3
parent a74bf88d9e
commit 6f19e210b3
1 changed files with 8 additions and 6 deletions
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@ -66,12 +66,14 @@ TUPLE: no-parent-directory path ;

 : parent-directory ( path -- parent )
    trim-path-separators
-    dup root-directory? [ ] [
-        dup last-path-separator drop [
-            1+ cut
-            special-directory?
-            [ no-parent-directory ] when
-        ] when*
+    dup empty? [ drop "/" ] [
+        dup root-directory? [ ] [
+            dup last-path-separator drop [
+                1+ cut
+                special-directory?
+                [ no-parent-directory ] when
+            ] when*
+        ] if
    ] if ;

 : file-name ( path -- string )