the directory word no longer sorts, this makes available-modules a tad faster

darcs
slava 2006-11-17 07:13:14 +00:00
parent 1c2596114e
commit ee57472bcc
1 changed files with 2 additions and 2 deletions

View File

@ -15,7 +15,7 @@ strings styles arrays ;
: directory ( path -- seq )
(directory)
[ { "." ".." } member? not ] subset natural-sort ;
[ { "." ".." } member? not ] subset ;
: file-length ( path -- n ) stat 4array third ;
@ -50,7 +50,7 @@ DEFER: directory.
dup directory? [ (directory.) ] [ (file.) terpri ] if ;
: directory. ( path -- )
dup directory [ file. ] each-with ;
dup directory natural-sort [ file. ] each-with ;
: home ( -- dir )
windows? "USERPROFILE" "HOME" ? os-env [ "." ] unless* ;