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

fix bug in find-all-files

db4
Doug Coleman 2008-03-24 17:19:22 -05:00
parent c5cc14de91
commit 1fe0e73a9f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,7 +44,7 @@ TUPLE: directory-iterator path bfs queue ;
: find-all-files ( path bfs? quot -- paths )
>r <directory-iterator> r>
pusher >r iterate-directory drop r> ; inline
pusher >r [ f ] compose iterate-directory drop r> ; inline
: recursive-directory ( path bfs? -- paths )
[ ] accumulator >r each-file r> ;