From ee57472bcc0cffec5f2d4439b99000f3ea3938d7 Mon Sep 17 00:00:00 2001 From: slava Date: Fri, 17 Nov 2006 07:13:14 +0000 Subject: [PATCH] the directory word no longer sorts, this makes available-modules a tad faster --- library/io/files.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/library/io/files.factor b/library/io/files.factor index 1ac221b52a..df929f325c 100644 --- a/library/io/files.factor +++ b/library/io/files.factor @@ -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* ;