luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Peter Taoussanis 2014-04-29 22:54:13 +07:00
parent 0ff36540ff
commit 3c8661a094
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/taoensso/nippy.clj
View file

@ -410,7 +410,9 @@
id-vector (read-coll in []) id-vector (read-coll in [])
id-set (read-coll in #{}) id-set (read-coll in #{})
id-map (read-kvs 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)) 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}) :meta (with-meta {:a :A} {:metakey :metaval})
:lazy-seq (repeatedly 1000 rand) :lazy-seq (repeatedly 1000 rand)
:lazy-seq-empty (map identity '())
:byte (byte 16) :byte (byte 16)
:short (short 42) :short (short 42)