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

Fix parent-directory

release
Slava Pestov 2007-11-12 17:00:32 -05:00
parent 8e9ad8cd1a
commit a20584b47d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -67,11 +67,11 @@ TUPLE: no-parent-directory path ;
: parent-directory ( path -- parent ) : parent-directory ( path -- parent )
trim-path-separators trim-path-separators
dup root-directory? [ ] [ dup root-directory? [ ] [
dup last-path-separator drop [ dup last-path-separator drop dup [
1+ cut 1+ cut
special-directory? special-directory?
[ no-parent-directory ] when [ no-parent-directory ] when
] when* ] [ 2drop "." ] if
] if ; ] if ;
: file-name ( path -- string ) : file-name ( path -- string )