Revert "Recursively apply unifications to find the single best rule"

This reverts commit 2588080655.
2012-03-07 21:01:10 +02:00 · 2012-03-07 21:01:10 +02:00 · 9c5c953904
commit 9c5c953904
parent f1ee11629a
1 changed files with 1 additions and 6 deletions
--- a/src/jonase/kibit/core.clj
+++ b/src/jonase/kibit/core.clj
@ -34,12 +34,7 @@
     (check-form expr all-rules))
  ([expr rules]
     (when (sequential? expr)
-       (loop [expr expr
-              alt-map nil]
-          (if-let [new-alt-map (some #(unify expr %) rules)]
-            (recur (:alt new-alt-map)
-                   new-alt-map)
-            alt-map)))))
+       (some #(unify expr %) rules))))

 (defn expr-seq [expr]
  (tree-seq sequential?