minor bug.

src/clj/auto_ap/pdf/ledger.clj

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