diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-02-18 16:24:24 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-02-18 16:24:24 +0000 |
| commit | 8e43e2b28d3af464f8e538a18730641f40947bbd (patch) | |
| tree | b121cfb0a96935fbf5ca0b86595b3dd4bb822c27 | |
| parent | 569829c42d44b70452e79e2b625b92808db5abc9 (diff) | |
fixed bean, patch from Chouser
| -rw-r--r-- | src/clj/clojure/core_proxy.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clj/clojure/core_proxy.clj b/src/clj/clojure/core_proxy.clj index 2b2d01d9..120ffbf3 100644 --- a/src/clj/clojure/core_proxy.clj +++ b/src/clj/clojure/core_proxy.clj @@ -340,11 +340,11 @@ (count [] (count pmap)) (assoc [k v] (assoc (snapshot) k v)) (without [k] (dissoc (snapshot) k)) - (seq [] ((fn thisfn [pseq] + (seq [] ((fn thisfn [plseq] (lazy-seq - (when pseq + (when-let [pseq (seq plseq)] (cons (new clojure.lang.MapEntry (first pseq) (v (first pseq))) - (thisfn (rest pseq))))) (keys pmap))))))) + (thisfn (rest pseq)))))) (keys pmap)))))) |