Extract-fn failure:

[tom-pang]

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

[tom-pang]

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