From 32e4e820916ac394965380338498ec2fca6c88cb Mon Sep 17 00:00:00 2001
From: Peter Taoussanis <ptaoussanis@gmail.com>
Date: Tue, 21 Jan 2014 12:56:36 +0700
Subject: [PATCH] BREAKING: Clean up (experimental) `Compressable-LZMA2`

---
 src/taoensso/nippy.clj | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/src/taoensso/nippy.clj b/src/taoensso/nippy.clj
index 71d4b28..60c7572 100644
--- a/src/taoensso/nippy.clj
+++ b/src/taoensso/nippy.clj
@@ -484,19 +484,13 @@
         ba-len    (alength ba)
         compress? (> ba-len 1024)]
     (.writeBoolean st compress?)
-    (if-not compress?
-      (do (.writeLong st  ba-len)
-          (.write st ba 0 ba-len))
-      (let [ba*     (compression/compress compression/lzma2-compressor ba)
-            ba*-len (alength ba*)]
-        (.writeLong st   ba*-len)
-        (.write st ba* 0 ba*-len)))))
+    (if-not compress? (write-bytes st ba)
+      (let [ba* (compression/compress compression/lzma2-compressor ba)]
+        (write-bytes st ba*)))))
 
 (extend-thaw 128 [st]
   (let [compressed? (.readBoolean st)
-        ba-len      (.readLong    st)
-        ba          (byte-array ba-len)]
-    (.read st ba 0 ba-len)
+        ba          (read-bytes st)]
     (thaw (wrap-header ba {:compressed? compressed? :encrypted? false})
           {:compressor compression/lzma2-compressor})))