From 9649a191bbfe29a782e23cc71dfd5430930bc903 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 9 Jun 2009 11:52:14 -0400 Subject: [PATCH] make run-length compression output a byte-array --- basis/compression/run-length/run-length.factor | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/basis/compression/run-length/run-length.factor b/basis/compression/run-length/run-length.factor index 6553860546..43be6ccf36 100644 --- a/basis/compression/run-length/run-length.factor +++ b/basis/compression/run-length/run-length.factor @@ -1,7 +1,11 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: arrays grouping sequences ; +USING: accessors arrays combinators grouping kernel locals math +math.matrices math.order multiline sequence-parser sequences +tools.continuations ; IN: compression.run-length + : run-length-uncompress ( byte-array -- byte-array' ) - 2 group [ first2 ] map concat ; + 2 group [ first2 ] map B{ } concat-as ; +