sql: updates to be more modular, explicit transactions that nest, db-spec as data rather than as a function, with-results changed to bind a seq of results rather than records repeatedly, see clojure.contrib.sql.test for new examples.

1 files changed, 0 insertions, 33 deletions

diff --git a/src/clojure/contrib/sql/internal.clj b/src/clojure/contrib/sql/internal.clj
deleted file mode 100644
index 0880d491..00000000
--- a/src/clojure/contrib/sql/internal.clj
+++ /dev/null
@@ -1,33 +0,0 @@
-;;  Copyright (c) Stephen C. Gilardi. All rights reserved. The use and
-;;  distribution terms for this software are covered by the Common Public
-;;  License 1.0 (http://opensource.org/licenses/cpl.php) which can be found
-;;  in the file CPL.TXT at the root of this distribution. By using this
-;;  software in any fashion, you are agreeing to be bound by the terms of
-;;  this license. You must not remove this notice, or any other, from this
-;;  software.
-;;
-;;  internal definitions for 'clojure.contrib.sql
-;;
-;;  scgilardi (gmail)
-;;  Created 3 October 2008
-
-(defn- properties
-  "Converts a Clojure map from keywords or symbols to values into a
-  java.util.Properties object that maps the names of the keywords or
-  symbols to the String representation of the values"
-  [m]
-  (let [p (Properties.)]
-    (when m
-      (loop [[key & keys] (keys m)
-             [val & vals] (vals m)]
-        (.setProperty p (name key) (str val))
-        (when keys
-          (recur keys vals))))
-    p))
-
-(defn- the-str
-  "Returns the String represented by the String, Keyword, or Symbol x"
-  [x]
-  (if (instance? String x)
-    x
-    (name x)))