Suppressed exit code "zero" being emitted to stdout.

This commit is contained in:
Elf M. Sternberg 2016-05-20 17:43:33 -07:00
parent d63e2f9ad0
commit 83fa9eed0c
1 changed files with 1 additions and 3 deletions

View File

@ -123,8 +123,6 @@
(matches-file filename (get check "ignore_files"))) false] (matches-file filename (get check "ignore_files"))) false]
[true true])) [true true]))
(defn tap [x] (print x) x)
(defn check-files [filenames check] (defn check-files [filenames check]
(let [[filenames-to-check (let [[filenames-to-check
(filter (fn [filename] (check-scan-wanted filename check)) filenames)] (filter (fn [filename] (check-scan-wanted filename check)) filenames)]
@ -180,4 +178,4 @@
(defmain [&rest args] (defmain [&rest args]
(let [[scan-all-files (and (> (len args) 1) (= (get args 2) "--all-files"))]] (let [[scan-all-files (and (> (len args) 1) (= (get args 2) "--all-files"))]]
(sys.exit (run-checks-for scan-all-files (get-head-tag))))) (sys.exit (int (run-checks-for scan-all-files (get-head-tag))))))