From d3bd574820a911445dc041abdb9df6615d8b98e5 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 28 Mar 2009 16:34:52 -0500 Subject: [PATCH] inline a couple of combinators to fix compile warnings --- basis/io/directories/search/search.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor index a3db10ffff..6db83ebca6 100755 --- a/basis/io/directories/search/search.factor +++ b/basis/io/directories/search/search.factor @@ -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