From f191c6be636ad682343279280fbe02fb2a956a03 Mon Sep 17 00:00:00 2001
From: Stuart Halloway <stu@thinkrelevance.com>
Date: Tue, 25 Aug 2009 21:47:17 -0400
Subject: tweaks: update build to match package names, idiomatic reset!

---
 build.xml                                        | 1 -
 src/clojure/contrib/test_contrib/expect_test.clj | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/build.xml b/build.xml
index 69390e1f..b7992d54 100644
--- a/build.xml
+++ b/build.xml
@@ -124,7 +124,6 @@
       <arg value="clojure.contrib.except"/>
       <arg value="clojure.contrib.expect"/>
       <arg value="clojure.contrib.expect.test-is-adapter"/>
-      <arg value="clojure.contrib.expect.util"/>
       <arg value="clojure.contrib.fcase"/>
       <arg value="clojure.contrib.find-namespaces"/>
       <arg value="clojure.contrib.fnmap"/>
diff --git a/src/clojure/contrib/test_contrib/expect_test.clj b/src/clojure/contrib/test_contrib/expect_test.clj
index 941a0d69..52f37741 100644
--- a/src/clojure/contrib/test_contrib/expect_test.clj
+++ b/src/clojure/contrib/test_contrib/expect_test.clj
@@ -14,7 +14,7 @@
 
 (defmacro assert-called [fn-name called? & body]
   `(let [called-status?# (atom false)]
-     (binding [~fn-name (fn [& args#] (swap! called-status?# (fn [& args#] true)))] ~@body)
+     (binding [~fn-name (fn [& args#] (reset! called-status?# true))] ~@body)
      (is (= ~called? @called-status?#))))
 
 (deftest test-convenience
-- 
cgit v1.2.3-18-g5258