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

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 4634577d9cfe717e413b28501bc7eab5b2c71450..c5930697c262262eb0b539a72da3af35d214dee7 100644 (file)
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -193,7 +193,7 @@ M: struct-c-type base-type ;
 : struct-slot-values-quot ( class -- quot )
     struct-slots
     [ name>> reader-word 1quotation ] map
-    '[ [ _ cleave ] output>array ] ;
+    '[ _ cleave>array ] ;
 
 : define-struct-slot-values-method ( class -- )
     [ \ struct-slot-values ] [ struct-slot-values-quot ] bi

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

diff --git a/basis/slots/syntax/syntax.factor b/basis/slots/syntax/syntax.factor
index a17bee4c1931250784fadc7e5a278c904be2be3a..dff8b7db23441f3585b0f53b7b67a71003bfb9e4 100644 (file)
--- a/basis/slots/syntax/syntax.factor
+++ b/basis/slots/syntax/syntax.factor
@@ -10,7 +10,7 @@ SYNTAX: slots[
 
 SYNTAX: slots{
     "}" [ reader-word 1quotation ] map-tokens
-    '[ [ _ cleave ] output>array ] append! ;
+    '[ _ cleave>array ] append! ;
 
 : >>writer-word ( name -- word )
     ">>" prepend "accessors" lookup-word ;

diff --git a/extra/opencl/opencl.factor b/extra/opencl/opencl.factor
index 9f8ad7beebbbbe145864ee7ff56a07c3861a2279..0171bc33bd68852d6e74b1776ac63ba5151a6649 100644 (file)
--- a/extra/opencl/opencl.factor
+++ b/extra/opencl/opencl.factor
@@ -225,14 +225,14 @@ M: cl-filter-linear  filter-mode-constant drop CL_FILTER_LINEAR ;
     } cleave ;
 
 : cl_device_fp_config>flags ( ulong -- sequence )
-    [ {
+    {
         [ CL_FP_DENORM           bitand 0 = [ f ] [ cl-denorm           ] if ]
         [ CL_FP_INF_NAN          bitand 0 = [ f ] [ cl-inf-and-nan      ] if ]
         [ CL_FP_ROUND_TO_NEAREST bitand 0 = [ f ] [ cl-round-to-nearest ] if ]
         [ CL_FP_ROUND_TO_ZERO    bitand 0 = [ f ] [ cl-round-to-zero    ] if ]
         [ CL_FP_ROUND_TO_INF     bitand 0 = [ f ] [ cl-round-to-inf     ] if ]
         [ CL_FP_FMA              bitand 0 = [ f ] [ cl-fma              ] if ]
-    } cleave ] { } output>sequence sift ;
+    } cleave>array sift ;
 
 : cl_device_mem_cache_type>cache-type ( uint -- cache-type )
     {