steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bug

release
Slava Pestov 2007-11-12 17:13:59 -05:00
parent 3e7df398c7
commit a39b4fd338
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/io/files/files.factor
View File

@ -70,7 +70,7 @@ TUPLE: no-parent-directory path ;
{ [ dup root-directory? ] [ ] } { [ dup root-directory? ] [ ] }
{ [ dup [ path-separator? ] contains? not ] [ drop "." ] } { [ dup [ path-separator? ] contains? not ] [ drop "." ] }
{ [ t ] [ { [ t ] [
last-path-separator drop 1+ cut dup last-path-separator drop 1+ cut
special-directory? [ no-parent-directory ] when special-directory? [ no-parent-directory ] when
] } ] }
} cond ; } cond ;