master
tilde.town 2015-02-13 21:22:09 +00:00
parent eb6bc8fbd1
commit d527b890be
1 changed files with 4 additions and 1 deletions

View File

@ -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)]]