minor bug.

src/clj/auto_ap/pdf/ledger.clj

@@ -68,13 +68,15 @@
                             ["98000 Other Expenses" 98000 98999]]})
 
 (defn in-range? [code]
-  (reduce
+  (if code 
-    (fn [acc [start end]]
+    (reduce
-      (if (<= start code end)
+      (fn [acc [start end]]
-        (reduced true)
+        (if (<= start code end)
-        acc))
+          (reduced true)
-    false
+          acc))
-    (vals ranges)))
+      false
+      (vals ranges))
+    false))
 
 (defn locations [data]
   (->> data