minor bug.

src/clj/auto_ap/pdf/ledger.clj

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