inline a couple of combinators to fix compile warnings

db4
Doug Coleman 2009-03-28 16:34:52 -05:00
parent df4d652c0a
commit d3bd574820
1 changed files with 2 additions and 2 deletions

View File

@ -65,9 +65,9 @@ ERROR: file-not-found ;
_ [ _ _ find-file [ file-not-found ] unless* ] attempt-all
] [
drop f
] recover ;
] recover ; inline
: find-all-in-directories ( directories bfs? quot: ( obj -- ? ) -- paths/f )
'[ _ _ find-all-files ] map concat ;
'[ _ _ find-all-files ] map concat ; inline
os windows? [ "io.directories.search.windows" require ] when