Fix bug

2007-11-12 17:13:59 -05:00 · 2007-11-12 17:13:59 -05:00 · a39b4fd338
parent 3e7df398c7
commit a39b4fd338
1 changed files with 1 additions and 1 deletions
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@ -70,7 +70,7 @@ TUPLE: no-parent-directory path ;
        { [ dup root-directory? ] [ ] }
        { [ dup [ path-separator? ] contains? not ] [ drop "." ] }
        { [ t ] [
-            last-path-separator drop 1+ cut
+            dup last-path-separator drop 1+ cut
            special-directory? [ no-parent-directory ] when
        ] }
    } cond ;