diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-04-05 16:02:37 +0000 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-04-05 16:02:37 +0000 |
| commit | 47024875854f8bed0301f9927d7faa6e0e83b595 (patch) | |
| tree | c7daeb1071a26f59ceed2416a34f7914536f0a9e /src/clojure/contrib/sql | |
| parent | 57571874b35cd8df77ccdc96a4e158c74478280e (diff) | |
java-util: the-str and with-system-properties
Diffstat (limited to 'src/clojure/contrib/sql')
| -rw-r--r-- | src/clojure/contrib/sql/internal.clj | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/src/clojure/contrib/sql/internal.clj b/src/clojure/contrib/sql/internal.clj index 730bc84b..9d9667ca 100644 --- a/src/clojure/contrib/sql/internal.clj +++ b/src/clojure/contrib/sql/internal.clj @@ -12,17 +12,12 @@ ;; Created 3 October 2008 (ns clojure.contrib.sql.internal - (:use [clojure.contrib.except :only (throw-arg)])) + (:use [clojure.contrib.except :only (throw-arg)] + [clojure.contrib.java-utils :only (the-str)])) (def *db* {:connection nil :level 0}) -(defn the-str - "Returns the name or string representation of x" - [x] - (if (instance? clojure.lang.Named x) - (name x) - (str x))) - +; TODO: test and move to clojure.contrib.java-utils? (defn properties "Converts a map from keywords, symbols, or strings to values into a java.util.Properties object that maps the key names to the values with |