Open tcrayford opened 14 years ago
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
Does this fail because of errors with extracting fn from fns with more than one arity?
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)
fails
No error thrown