release
Slava Pestov 2007-11-12 17:13:59 -05:00
parent 3e7df398c7
commit a39b4fd338
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;