From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 26 Jan 2022 02:56:36 +0000 (-0800)
Subject: basis/extra: using cleave>array in a few places
X-Git-Tag: 0.99~1638
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=af2cc9912ca0713d626bccc8e1c206b2abbb9b13

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

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 4634577d9c..c5930697c2 100644
--- 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 c6686452d9..e0e2cd3a44 100644
--- 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 a17bee4c19..dff8b7db23 100644
--- 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 9f8ad7beeb..0171bc33bd 100644
--- 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 )
     {