diff clojure/com/aurellem/run/util.clj @ 335:abd1ca8a25cc

fixed major bug with first-difference which was causing de-sync.
author Robert McIntyre <rlm@mit.edu>
date Sat, 07 Apr 2012 05:42:26 -0500
parents a452deec2882
children 7c89fe478de4
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/util.clj	Fri Apr 06 14:54:39 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/util.clj	Sat Apr 07 05:42:26 2012 -0500
     1.3 @@ -17,7 +17,7 @@
     1.4  (defn first-difference
     1.5    [base alt difference-metric [moves root :as script]]
     1.6    (loop [branch-point root
     1.7 -         actions moves]
     1.8 +         actions (vec moves)]
     1.9      (let [base-branch (step branch-point base)
    1.10            base-val (difference-metric base-branch)
    1.11            alt-branch (step branch-point alt)