diff options
Diffstat (limited to 'src/clojure/contrib/java_utils.clj')
| -rw-r--r-- | src/clojure/contrib/java_utils.clj | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/clojure/contrib/java_utils.clj b/src/clojure/contrib/java_utils.clj index c5e120bb..0ac39ece 100644 --- a/src/clojure/contrib/java_utils.clj +++ b/src/clojure/contrib/java_utils.clj @@ -72,15 +72,19 @@ (name x) (str x))) -(defn get-system-property [stringable] - (System/getProperty (as-str stringable))) +(defn get-system-property + "Get a system property." + ([stringable] + (System/getProperty (as-str stringable))) + ([stringable default] + (System/getProperty (as-str stringable) default))) (defn set-system-properties - [settings] "Set some system properties. Nil clears a property." + [settings] (doseq [[name val] settings] (if val - (System/setProperty (as-str name) val) + (System/setProperty (as-str name) (as-str val)) (System/clearProperty (as-str name))))) (defmacro with-system-properties |