Revert "Recursively apply unifications to find the single best rule"
This reverts commit 2588080655
.
This commit is contained in:
parent
f1ee11629a
commit
9c5c953904
1 changed files with 1 additions and 6 deletions
|
@ -34,12 +34,7 @@
|
||||||
(check-form expr all-rules))
|
(check-form expr all-rules))
|
||||||
([expr rules]
|
([expr rules]
|
||||||
(when (sequential? expr)
|
(when (sequential? expr)
|
||||||
(loop [expr expr
|
(some #(unify expr %) rules))))
|
||||||
alt-map nil]
|
|
||||||
(if-let [new-alt-map (some #(unify expr %) rules)]
|
|
||||||
(recur (:alt new-alt-map)
|
|
||||||
new-alt-map)
|
|
||||||
alt-map)))))
|
|
||||||
|
|
||||||
(defn expr-seq [expr]
|
(defn expr-seq [expr]
|
||||||
(tree-seq sequential?
|
(tree-seq sequential?
|
||||||
|
|
Loading…
Reference in a new issue