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

directory fix

db4
Doug Coleman 2008-10-19 13:11:10 -05:00
parent 613cd3fd67
commit 4af3543fcd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/io/paths/paths.factor
View File

@ -7,7 +7,7 @@ IN: io.paths
TUPLE: directory-iterator path bfs queue ; TUPLE: directory-iterator path bfs queue ;
: qualified-directory ( path -- seq ) : qualified-directory ( path -- seq )
dup directory [ first2 [ append-path ] dip 2array ] with map ; dup directory-files [ append-path ] with map ;
: push-directory ( path iter -- ) : push-directory ( path iter -- )
[ qualified-directory ] dip [ [ qualified-directory ] dip [
@ -21,7 +21,7 @@ TUPLE: directory-iterator path bfs queue ;
: next-file ( iter -- file/f ) : next-file ( iter -- file/f )
dup queue>> deque-empty? [ drop f ] [ dup queue>> deque-empty? [ drop f ] [
dup queue>> pop-back first2 dup queue>> pop-back dup link-info directory?
[ over push-directory next-file ] [ nip ] if [ over push-directory next-file ] [ nip ] if
] if ; ] if ;