made meta return nil on non-IObjs

1 files changed, 9 insertions, 7 deletions

diff --git a/src/boot.clj b/src/boot.clj
index 8f8d7ac7..a8d0077d 100644
--- a/src/boot.clj
+++ b/src/boot.clj
@@ -39,13 +39,6 @@
       ([comparator & args]
           (. clojure.lang.PersistentTreeMap (create comparator args))))
 
-;;;;;;;;;;;;;;;;; metadata ;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defn meta [#^clojure.lang.IObj x]
- (. x (meta)))
-
-(defn with-meta [#^clojure.lang.IObj x m]
-  (. x (withMeta m)))
-
 
   
 ;;;;;;;;;;;;;;;;;;;;
@@ -62,6 +55,15 @@
 (defmacro when-not [test & body]
    (list 'if test nil (cons 'do body)))
 
+;;;;;;;;;;;;;;;;; metadata ;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defn meta [x]
+  (when (instance? clojure.lang.IObj x)
+    (. #^clojure.lang.IObj x (meta))))
+
+(defn with-meta [#^clojure.lang.IObj x m]
+  (. x (withMeta m)))
+
+
 (defn #^Boolean nil? [x] (identical? x nil))
 (defn #^Boolean false? [x] (identical? x false))
 (defn #^Boolean true? [x] (identical? x true))