From aa48516c2100a6c1b2f2a67910dbd26387d80041 Mon Sep 17 00:00:00 2001
From: sostler <sbostler@gmail.com>
Date: Sun, 28 Feb 2010 11:23:52 -0500
Subject: Added try-catch to maybe-parse-int

---
 src/utils.clj | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/utils.clj')

diff --git a/src/utils.clj b/src/utils.clj
index 33a247f..5a2c913 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -76,8 +76,11 @@
 
 ;; Parsing
 
-(defn maybe-parse-int [s f]
-  (if s (Integer/parseInt s) f))
+(defn maybe-parse-int 
+  ([s] (Integer/parseInt s))
+  ([s default]
+     (try (Integer/parseInt s)
+          (catch NumberFormatException _ default))))
 
 (defn maybe-parse-long [s f]
   (if s (Long/parseLong s) f))
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2