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
core/io/files

View File

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