sql: make 'connection' public, a function that returns the current database connection or throws if there is none

1 files changed, 2 insertions, 12 deletions

diff --git a/src/clojure/contrib/sql/internal.clj b/src/clojure/contrib/sql/internal.clj
index 8d6e8414..8d17552c 100644
--- a/src/clojure/contrib/sql/internal.clj
+++ b/src/clojure/contrib/sql/internal.clj
@@ -15,22 +15,12 @@
 
 (def *db* {:connection nil :level 0})
 
-(defn connection
+(defn connection*
   "Returns the current database connection or throws"
   []
   (or (:connection *db*)
       (throw (Exception. "no current database connection"))))
 
-(defn create-statement
-  "Creates a statement object on the current connection"
-  []
-  (.createStatement (connection)))
-
-(defn prepare-statement
-  "Creates a prepared statement object on the current connection"
-  [sql]
-  (.prepareStatement (connection) sql))
-
 (defn the-str
   "Returns the name or string representation of x"
   [x]
@@ -73,7 +63,7 @@
   or rolled back on any uncaught exception. Any nested transactions are
   absorbed into the outermost transaction."
   [thunk]
-  (let [con (connection)
+  (let [con (connection*)
         outermost (zero? (:level *db*))
         auto-commit (when outermost (.getAutoCommit con))]
     (binding [*db* (update-in *db* [:level] inc)]