From 71c8d51d0a920a46eef39117aab33a9f59c10bf2 Mon Sep 17 00:00:00 2001 From: Stuart Halloway Date: Fri, 10 Apr 2009 02:47:52 +0000 Subject: Stuart S's suggestions for properties --- src/clojure/contrib/java_utils.clj | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/clojure/contrib/java_utils.clj') 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 -- cgit v1.2.3-18-g5258