From 59bc3a1ca034c1540cdc2ec70f4068474962d1f2 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 14 Feb 2018 16:21:50 -0800
Subject: [PATCH] io.directories.search: use fry instead of curry in find-file.

---
 basis/io/directories/search/search.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 3431081dc8..6d507f4b9e 100644
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -74,7 +74,7 @@ PRIVATE>
 
 : find-file ( path quot: ( ... name -- ... ? ) -- path/f )
     [ bfs? <directory-iterator> ] dip
-    [ keep and ] curry iterate-directory ; inline
+    '[ _ keep and ] iterate-directory ; inline
 
 : find-files ( path quot: ( ... name -- ... ? ) -- paths )
     selector [ each-file ] dip ; inline