diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-04-09 00:11:59 +0000 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-04-09 00:11:59 +0000 |
| commit | 2840313f5286f2f5f30e82b0768f265128d31680 (patch) | |
| tree | c1f17adad9ca07c5c81ccfa3ef7350bb01cc22e4 /src/clojure/contrib/java_utils.clj | |
| parent | bb83d87f6bf3658b378d31af89377c1edbe6aaf2 (diff) | |
breaking change: rename the-str to as-str
Diffstat (limited to 'src/clojure/contrib/java_utils.clj')
| -rw-r--r-- | src/clojure/contrib/java_utils.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clojure/contrib/java_utils.clj b/src/clojure/contrib/java_utils.clj index a60f68c8..097afd9c 100644 --- a/src/clojure/contrib/java_utils.clj +++ b/src/clojure/contrib/java_utils.clj @@ -63,7 +63,7 @@ ([parent child & more] (reduce file (file parent child) more))) -(defn the-str +(defn as-str "Returns the name or string representation of x" [x] (if (instance? clojure.lang.Named x) @@ -71,15 +71,15 @@ (str x))) (defn get-system-property [stringable] - (System/getProperty (the-str stringable))) + (System/getProperty (as-str stringable))) (defn set-system-properties [settings] "Set some system properties. Nil clears a property." (doseq [[name val] settings] (if val - (System/setProperty (the-str name) val) - (System/clearProperty (the-str name))))) + (System/setProperty (as-str name) val) + (System/clearProperty (as-str name))))) (defmacro with-system-properties "setting => property-name value |