 
 (defn expr-typename
   [node]
-  (let [expr-type (.getExpressionType node)]
+  (let [expr-type (log-err (str "Exception getting expression type for [file node] "
+                                [(filename node) (tree-path node)]) nil
+                           (-> node .getExpressionType))]
     (condp instance? expr-type
         IProblemBinding "problem-binding"
         IProblemType "problem-type"

(ns quark.tree-tokenizer
  (:require [atom-finder.util :refer :all]
            [atom-finder.constants :refer :all]

          src-file (c-files src-path)
          :let [src-filename (.getAbsolutePath src-file)
                out-filename (str (str/replace src-filename src-path out-path) ".edn")]]
    ;(pprn src-filename)
    (clojure.java.io/make-parents out-filename)
    (->> src-filename parse-file to-edn (spit out-filename))))

'((time-mins (src-dir-to-edn linux-path "tmp/src-to-edn/linux3")))


