aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/sql
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure/contrib/sql')
-rw-r--r--src/clojure/contrib/sql/internal.clj4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/sql/internal.clj b/src/clojure/contrib/sql/internal.clj
index 207ccd3b..1c75ee65 100644
--- a/src/clojure/contrib/sql/internal.clj
+++ b/src/clojure/contrib/sql/internal.clj
@@ -41,9 +41,9 @@
(defn rollback-only
"Accessor for the rollback-only flag on the current connection"
([]
- @(:rollback-only *db*))
+ (deref (:rollback-only *db*)))
([val]
- (update-in *db* [:rollback-only] swap! (fn [_] val))))
+ (swap! (:rollback-only *db*) (fn [_] val))))
(defn with-connection*
"Evaluates func in the context of a new connection to a database then