[#48] Fix freeze/thaw identity on empty lazy seqs

This commit is contained in:
Peter Taoussanis 2014-04-29 22:54:13 +07:00
parent 0ff36540ff
commit 3c8661a094

View file

@ -410,7 +410,9 @@
id-vector (read-coll in [])
id-set (read-coll in #{})
id-map (read-kvs in {})
id-seq (seq (read-coll in []))
id-seq (or (seq (read-coll in []))
(lazy-seq nil) ; Empty coll
)
id-meta (let [m (thaw-from-in in)] (with-meta (thaw-from-in in) m))
@ -666,6 +668,7 @@
:meta (with-meta {:a :A} {:metakey :metaval})
:lazy-seq (repeatedly 1000 rand)
:lazy-seq-empty (map identity '())
:byte (byte 16)
:short (short 42)