diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-02-21 20:49:29 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-02-21 20:49:29 +0000 |
| commit | 268230358a78e19ba055342ddcaa8d5fd02a3a50 (patch) | |
| tree | 9a5b86390ca712f2eee1c798c9f030b729de1f22 | |
| parent | 91b5515ecf44af1140d4d8293b8b55cd73a9336a (diff) | |
fixed access on helpers, contains? now returns false on non-maps
| -rw-r--r-- | src/boot.clj | 3 | ||||
| -rw-r--r-- | src/jvm/clojure/lang/RT.java | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/src/boot.clj b/src/boot.clj index dce1554c..cd535d05 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -1148,7 +1148,7 @@ into [to from] array [& items] (into-array items)) -(defn #^{:private true} +(defn make-proxy [classes method-map] (. java.lang.reflect.Proxy (newProxyInstance (. (identity clojure.lang.Compiler) (getClassLoader)) @@ -1981,7 +1981,6 @@ defn- [name & decls] (list* `defn (with-meta name (assoc (meta name) :private true)) decls)) (defn -#^{:private true} print-doc [v] (println "-------------------------") (println (str (ns-name (:ns ^v)) "/" (:name ^v))) diff --git a/src/jvm/clojure/lang/RT.java b/src/jvm/clojure/lang/RT.java index 48896267..58ed95ad 100644 --- a/src/jvm/clojure/lang/RT.java +++ b/src/jvm/clojure/lang/RT.java @@ -465,8 +465,8 @@ static public Object contains(Object coll, Object key){ int n = ((Number) key).intValue(); return n >= 0 && n < count(coll); } - - throw new UnsupportedOperationException("contains not supported on this type"); + return F; + //throw new UnsupportedOperationException("contains not supported on this type"); } static public Object find(Object coll, Object key){ |