Permalink
Browse files

Merge pull request #24 from lynaghk/simplifying-core

Simplify prewalk
  • Loading branch information...
2 parents 40dd12f + ebcd611 commit 1af4c930de43fcbe455016ff7306af26eab52bed @jonase committed Mar 26, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/kibit/core.clj
View
@@ -31,7 +31,8 @@
;; Simplifies expr according to the rules until no more rules apply.
(defn simplify [expr rules]
(->> expr
- (iterate (partial walk/postwalk #(simplify-one % rules)))
+ (iterate (partial walk/prewalk #(simplify-one % rules)))
(partition 2 1)
(drop-while #(apply not= %))
(ffirst)))
+

0 comments on commit 1af4c93

Please sign in to comment.