Stuart S's suggestions for properties

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