core: Add the shuffler words but without primitives.

[factor.git] / core / io / streams / byte-array / byte-array.factor

diff --git a/core/io/streams/byte-array/byte-array.factor b/core/io/streams/byte-array/byte-array.factor
index d37a8a7490457d377e3ecd1219772745812fb88e..fd2b79b81995840698c7c54cfd98bf26eab52f87 100644 (file)
--- a/core/io/streams/byte-array/byte-array.factor
+++ b/core/io/streams/byte-array/byte-array.factor
@@ -13,7 +13,7 @@ M: byte-vector stream-tell length ; inline
     512 <byte-vector> swap <encoder> ; inline
 
 : with-byte-writer ( encoding quot -- byte-array )
-    [ <byte-writer> ] dip [ with-output-stream* ] 2keep drop
+    [ <byte-writer> ] dip [ with-output-stream* ] keepd
     dup encoder? [ stream>> ] when >byte-array ; inline
 
 TUPLE: byte-reader { underlying byte-array read-only } { i array-capacity } ;