From af2cc9912ca0713d626bccc8e1c206b2abbb9b13 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 25 Jan 2022 18:56:36 -0800 Subject: [PATCH] basis/extra: using cleave>array in a few places --- basis/classes/struct/struct.factor | 2 +- basis/pack/pack.factor | 2 +- basis/slots/syntax/syntax.factor | 2 +- extra/opencl/opencl.factor | 4 ++-- 4 files changed, 5 insertions(+), 5 deletions(-) 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 @ ] ] 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 ) { -- 2.34.1