[#48] Fix freeze/thaw identity on empty lazy seqs
This commit is contained in:
parent
0ff36540ff
commit
3c8661a094
1 changed files with 4 additions and 1 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Reference in a new issue