basis/extra: using cleave>array in a few places

[factor.git] / basis / pack / pack.factor

diff --git a/basis/pack/pack.factor b/basis/pack/pack.factor
index c6686452d97a1e5855d58e586420d37912520f58..e0e2cd3a445d904bd65a7326ac7cc4ebe03c4b58 100644 (file)
--- a/basis/pack/pack.factor
+++ b/basis/pack/pack.factor
@@ -127,7 +127,7 @@ MACRO: unpack ( str -- quot )
     [ [ ch>packed-length ] { } map-as start/end ]
     [ [ unpack-table at ] { } map-as ] bi
     [ '[ [ _ _ ] dip <slice> @ ] ] 3map
-    '[ [ _ cleave ] output>array ] ;
+    '[ _ cleave>array ] ;
 
 : unpack-native ( seq str -- seq )
     '[ _ _ unpack ] with-native-endian ; inline