sql: restore rollback flag to its default after transaction completes

1 files changed, 10 insertions, 2 deletions

diff --git a/src/clojure/contrib/sql.clj b/src/clojure/contrib/sql.clj
index c3615efd..f4e1ac3f 100644
--- a/src/clojure/contrib/sql.clj
+++ b/src/clojure/contrib/sql.clj
@@ -41,9 +41,17 @@
   [& body]
   `(transaction* (fn [] ~@body)))
 
-(defalias set-rollback-only set-rollback-only*)
+(defn set-rollback-only
+  "Marks the outermost transaction such that it will rollback rather than
+  commit when complete"
+  []
+  (rollback-only true))
 
-(defalias is-rollback-only is-rollback-only*)
+(defn is-rollback-only
+  "Returns true if the outermost transaction will rollback rather than
+  commit when complete"
+  []
+  (rollback-only))
 
 (defn do-commands
   "Executes SQL commands on the open database connection."