   (let [paren-types
         [(Atom. :parens paren-node? (default-finder paren-node?))
          (Atom. :superfluous-parens superfluous-parens?
-                (default-finder #(when (paren-node? %) (superfluous-parens? %))))
+                (default-finder (fn [node]
+                                  (when (and (not (= "anonymously-parsed-code.c" (filename node)))
+                                            (paren-node? node))
+                                   (superfluous-parens? node)))))
          (atom-lookup :operator-precedence)]]
   (find-atoms paren-types root)))
 

        csv-file "src/analysis/data/all-parens_2018-10-29_02_child.csv"
        ]
    ;(find-all-parens-in-project edn-file)
    ;(summarize-all-nodes edn-file csv-file)
  ))

                  (apply concat)
                  (map (partial into {}))
                  (map (fn [node-map]
                         (->> [:selection :parent-type :node-type :child-type]
                              (select-keys node-map)))))
          ))
  )
  )

(defn summarize-all-parens
  [edn-file csv-file]
  (->>
   edn-file
   read-lines
   ;(take 10)
   flatten-all-parens
   frequencies
   (map (partial-right update-in [0] (partial map-values #(some-> % name))))
   (map (fn [[m count]] (assoc m :count count)))
   ;(map prn)
   (maps-to-csv csv-file)
   time-mins
   )
  )

(defn main-superfluous-parens
  []
