From d527b890be68b66c7e4f194e8c22835ef8165940 Mon Sep 17 00:00:00 2001
From: "tilde.town" <root@localhost>
Date: Fri, 13 Feb 2015 21:22:09 +0000
Subject: [PATCH] sigh

---
 scripts/userlist.hy | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scripts/userlist.hy b/scripts/userlist.hy
index 114e183..d2af811 100644
--- a/scripts/userlist.hy
+++ b/scripts/userlist.hy
@@ -26,7 +26,10 @@
                "(default :3)"
                ""))))
 
-(defn bounded-find [path] (find path "-maxdepth" "3"))
+(defn bounded-find [path]
+  ;; find might return 1 but still have worked fine (because of dirs it can't
+  ;; go into)
+  (apply find [path "-maxdepth" "3"] {"_ok_code" [0 1]}))
 
 (defn guarded-mtime [filename]
   (let [[path (.rstrip filename)]]