comparison clojure/com/aurellem/run/title.clj @ 170:09caf6a5bbf4

added facilities to corrupt any state.
author Robert McIntyre <rlm@mit.edu>
date Wed, 21 Mar 2012 03:18:20 -0500
parents 412ca096a9ba
children b7f682bb3090
comparison
equal deleted inserted replaced
169:4857f59f63a6 170:09caf6a5bbf4
1 (ns com.aurellem.title 1 (ns com.aurellem.run.title
2 (:use (com.aurellem gb-driver vbm))) 2 (:use (com.aurellem.gb gb-driver vbm)))
3 3
4 (defn first-difference [base alt summary root] 4 (defn first-difference [base alt summary root]
5 (loop [branch-point root 5 (loop [branch-point root
6 actions []] 6 actions []]
7 (let [base-branch (step branch-point base) 7 (let [base-branch (step branch-point base)