Extract-fn failure:

[tcrayford]

extracting: (find-bindings-above-node (first node) expr bnd-syms)

from (defn find-bindings-above-node "Returns all binding forms above expr in node." ([node expr](find-bindings-above-node node expr [])) ([node expr bnd-syms] (unique-vec (flatten (cond (more-than-one seq? node) (process-multiple-nodes node expr bnd-syms)

         (last-binding-form? node)
         (add-binding-form node bnd-syms)

         (binding-node? node)
         (process-remaining-bindings node expr bnd-syms)

         (seq? (first node))
         (find-bindings-above-node (first node) expr bnd-syms)

         :else
         (find-bindings-above-node (rest node) expr bnd-syms))))))

fails

No error thrown

[tcrayford]

Does this fail because of errors with extracting fn from fns with more than one arity?