basis/extra: Update last usages of <sliced-groups> to <groups>.

diff --git a/basis/checksums/internet/internet.factor b/basis/checksums/internet/internet.factor
index 254d46d0ab323e1e74c99d883e5e109d9af4ed99..5d3b24b3e09e8e49ce1f164dca73969e2bbd49e2 100644 (file)
--- a/basis/checksums/internet/internet.factor
+++ b/basis/checksums/internet/internet.factor
@@ -10,7 +10,7 @@ SINGLETON: internet ! RFC 1071
 INSTANCE: internet checksum
 
 M: internet checksum-bytes
-    drop 0 swap 2 <sliced-groups> [ le> + ] each
+    drop 0 swap 2 <groups> [ le> + ] each
     [ -16 shift ] [ 0xffff bitand ] bi +
     [ -16 shift ] keep + bitnot 2 >le ;
 

diff --git a/basis/checksums/md5/md5.factor b/basis/checksums/md5/md5.factor
index 6a0d553ec1a358747b27751cbc883c9dba0ae618..3f813dd3870da5d2ee877119eec308aa474b75bc 100644 (file)
--- a/basis/checksums/md5/md5.factor
+++ b/basis/checksums/md5/md5.factor
@@ -177,7 +177,7 @@ HINTS: (process-md5-block-I) { uint-array md5-state } ;
 
 : byte-array>le ( byte-array -- byte-array )
     little-endian? [
-        dup 4 <sliced-groups> [
+        dup 4 <groups> [
             [ [ 1 2 ] dip exchange-unsafe ]
             [ [ 0 3 ] dip exchange-unsafe ] bi
         ] each

diff --git a/basis/checksums/sha/sha.factor b/basis/checksums/sha/sha.factor
index c71cd864f2cf056e9d9429ea5a02c71493bdbc2f..fc4e96aee7d6a37f47db2bf8f35ec7a7059e2a5f 100644 (file)
--- a/basis/checksums/sha/sha.factor
+++ b/basis/checksums/sha/sha.factor
@@ -290,7 +290,7 @@ GENERIC: pad-initial-bytes ( string sha2 -- padded-string )
     [ w+ a ] dip set-nth-unsafe ; inline
 
 : prepare-message-schedule ( seq sha2 -- w-seq )
-    [ word-size>> <sliced-groups> [ be> ] map ]
+    [ word-size>> <groups> [ be> ] map ]
     [
         block-size>> [ 0 pad-tail 16 ] keep [a,b) over
         '[ _ prepare-M-256 ] each
@@ -352,7 +352,7 @@ M: sha-256 checksum-stream ( stream checksum -- byte-array )
     } 2cleave set-nth-unsafe ;
 
 : prepare-sha1-message-schedule ( seq -- w-seq )
-    4 <sliced-groups> [ be> ] map
+    4 <groups> [ be> ] map
     80 0 pad-tail 16 80 [a,b) over
     '[ _ sha1-W ] each ; inline
 

diff --git a/basis/compiler/tree/cleanup/cleanup-tests.factor b/basis/compiler/tree/cleanup/cleanup-tests.factor
index 8e3609c838ab4dd95c99d99832306b5591da4a22..f81f5a09377f926a1bc13ba7668c50e853ec3888 100644 (file)
--- a/basis/compiler/tree/cleanup/cleanup-tests.factor
+++ b/basis/compiler/tree/cleanup/cleanup-tests.factor
@@ -483,7 +483,7 @@ cell-bits 32 = [
 ] unit-test
 
 [ t ] [
-    [ { array } declare 2 <sliced-groups> [ . . ] assoc-each ]
+    [ { array } declare 2 <groups> [ . . ] assoc-each ]
     \ nth-unsafe inlined?
 ] unit-test
 

diff --git a/basis/endian/endian.factor b/basis/endian/endian.factor
index 4f59f71f3a9066a3c5cba7d352cc19b49e3786f2..4dd5ecf4075b7af9f33bc4ffc67b3875617f3c6c 100644 (file)
--- a/basis/endian/endian.factor
+++ b/basis/endian/endian.factor
@@ -67,7 +67,7 @@ M: little-endian unsigned-endian> le> ;
     native-endianness get-global dup endianness get = [
         2drop
     ] [
-        [ [ <sliced-groups> ] keep ] dip
+        [ [ <groups> ] keep ] dip
         little-endian = [
             '[ be> _ >le ] map
         ] [

diff --git a/basis/images/loader/gtk/gtk.factor b/basis/images/loader/gtk/gtk.factor
index 69ec5f89749b61820bbc746442471c6454a216f9..9d99076e7deea084f73c9f8d98ee76b20e9ff802 100644 (file)
--- a/basis/images/loader/gtk/gtk.factor
+++ b/basis/images/loader/gtk/gtk.factor
@@ -39,7 +39,7 @@ os linux? [
         [ pixels h rowstride * memory>byte-array ]
         [
             pixels rowstride h * uchar <c-direct-array>
-            rowstride <sliced-groups>
+            rowstride <groups>
             [ bytes-per-row head-slice ] map concat
         ] if
     ] ;

diff --git a/basis/interval-sets/interval-sets.factor b/basis/interval-sets/interval-sets.factor
index b06f33a413a5c8bb501db126817d09c27cac15cc..4fdcfc3634069f8c5d2f2c563bdc3276ff6f1649 100644 (file)
--- a/basis/interval-sets/interval-sets.factor
+++ b/basis/interval-sets/interval-sets.factor
@@ -15,7 +15,7 @@ ALIAS: start first-unsafe
 ALIAS: end second-unsafe
 
 : find-interval ( key interval-set -- slice )
-    array>> 2 <sliced-groups>
+    array>> 2 <groups>
     [ start <=> ] with search nip ; inline
 
 ERROR: not-an-interval-set obj ;

diff --git a/basis/io/mmap/mmap-docs.factor b/basis/io/mmap/mmap-docs.factor
index 9afc5286f5a58fc0358cf1f59eee6aa5bb92130e..49d44616bf5525ec2fd944870c4fa39ecd052208 100644 (file)
--- a/basis/io/mmap/mmap-docs.factor
+++ b/basis/io/mmap/mmap-docs.factor
@@ -80,7 +80,7 @@ ARTICLE: "io.mmap.examples" "Memory-mapped file examples"
     "SPECIALIZED-ARRAY: char"
     ""
     "\"mydata.dat\" char ["
-    "    4 <sliced-groups>"
+    "    4 <groups>"
     "    [ reverse! drop ] each"
     "] with-mapped-array"
 }

diff --git a/basis/tools/hexdump/hexdump.factor b/basis/tools/hexdump/hexdump.factor
index f8a8bb96aa2732d5024503f84f18590ce2035fde..4d178a47b5db1f44479919fb229c4ec646da5ca0 100644 (file)
--- a/basis/tools/hexdump/hexdump.factor
+++ b/basis/tools/hexdump/hexdump.factor
@@ -30,7 +30,7 @@ IN: tools.hexdump
 
 : hexdump-bytes ( bytes -- )
     [ length write-header ]
-    [ 16 <sliced-groups> [ write-hex-line ] each-index ] bi ;
+    [ 16 <groups> [ write-hex-line ] each-index ] bi ;
 
 PRIVATE>
 

diff --git a/extra/alien/data/map/map.factor b/extra/alien/data/map/map.factor
index 6c93e8f4b633d400df3f52ce4cceb0704e010440..43b4d258d2fbd3bf982b23034b33615b634cae35 100644 (file)
--- a/extra/alien/data/map/map.factor
+++ b/extra/alien/data/map/map.factor
@@ -51,7 +51,7 @@ INSTANCE: data-map-param immutable-sequence
     ] ;
 
 : [>object-param] ( class count -- quot )
-    nip '[ _ <sliced-groups> ] ;
+    nip '[ _ <groups> ] ;
 
 : [>param] ( type -- quot )
     c-type-count over c-type-name?

diff --git a/extra/benchmark/dispatch2/dispatch2.factor b/extra/benchmark/dispatch2/dispatch2.factor
index dc58172747a154cd07f5646faa01bfdd0a416bd8..c57fbdb998adcfeee0682be9a2351a57b7798e04 100644 (file)
--- a/extra/benchmark/dispatch2/dispatch2.factor
+++ b/extra/benchmark/dispatch2/dispatch2.factor
@@ -14,7 +14,7 @@ IN: benchmark.dispatch2
         double-array{ 1.0 2.0 3.0 } ,
         "hello world" 4 tail-slice ,
         10 f <repetition> ,
-        100 iota 2 <sliced-groups> ,
+        100 iota 2 <groups> ,
         "hello" <reversed> ,
         { { 1 2 } { 3 4 } } 0 <column> ,
         ?{ t f t } ,

diff --git a/extra/benchmark/dispatch3/dispatch3.factor b/extra/benchmark/dispatch3/dispatch3.factor
index 895d487a584fa04657fd4c70745646993e065ad3..a1d58474b8c8c8f8a18f7bcdc9741b97aae24c80 100644 (file)
--- a/extra/benchmark/dispatch3/dispatch3.factor
+++ b/extra/benchmark/dispatch3/dispatch3.factor
@@ -30,7 +30,7 @@ M: object g drop "object" ;
         double-array{ 1.0 2.0 3.0 } ,
         "hello world" 4 tail-slice ,
         10 f <repetition> ,
-        100 2 <sliced-groups> ,
+        100 2 <groups> ,
         "hello" <reversed> ,
         f ,
         { { 1 2 } { 3 4 } } 0 <column> ,

diff --git a/extra/gpu/demos/bunny/bunny.factor b/extra/gpu/demos/bunny/bunny.factor
index 331885bdb9ada428ed97452e754c4345f7d88f0d..03ab1dc565cd4c568bf6795ef33d999b1e344398 100644 (file)
--- a/extra/gpu/demos/bunny/bunny.factor
+++ b/extra/gpu/demos/bunny/bunny.factor
@@ -124,7 +124,7 @@ UNIFORM-TUPLE: loading-uniforms
     a b c [ vertexes nth [ n v+ ] change-normal drop ] tri@ ; inline
 
 : calc-bunny-normals ( vertexes indexes -- )
-    3 <sliced-groups> swap
+    3 <groups> swap
     [ [ first3 ] dip calc-bunny-normal ] curry each ; inline
 
 : normalize-bunny-normals ( vertexes -- )

diff --git a/extra/images/bitmap/bitmap.factor b/extra/images/bitmap/bitmap.factor
index f637dca9879cf4994c0791365a86c37176f44476..fd5df488c8d97ea82ac9bbc67cfcc7ce29a445c3 100644 (file)
--- a/extra/images/bitmap/bitmap.factor
+++ b/extra/images/bitmap/bitmap.factor
@@ -213,7 +213,7 @@ M: object parse-color-data* ( loading-bitmap header -- loading-bitmap )
     [ nip ] [ drop color-index-length ] if read >>color-index ;
 
 : alpha-used? ( loading-bitmap -- ? )
-    color-index>> 4 <sliced-groups> [ fourth 0 = ] all? not ;
+    color-index>> 4 <groups> [ fourth 0 = ] all? not ;
 
 GENERIC: bitmap>component-order* ( loading-bitmap header -- object )
 
@@ -240,12 +240,12 @@ GENERIC: bitmap>component-order* ( loading-bitmap header -- object )
 
 : color-lookup3 ( loading-bitmap -- seq )
     [ color-index>> >array ]
-    [ color-palette>> 3 <sliced-groups> ] bi
+    [ color-palette>> 3 <groups> ] bi
     '[ _ nth ] map concat ;
 
 : color-lookup4 ( loading-bitmap -- seq )
     [ color-index>> >array ]
-    [ color-palette>> 4 <sliced-groups> [ 3 head-slice ] map ] bi
+    [ color-palette>> 4 <groups> [ 3 head-slice ] map ] bi
     '[ _ nth ] map concat ;
 
 ! os2v1 is 3bytes each, all others are 3 + 1 unused

diff --git a/extra/images/png/png.factor b/extra/images/png/png.factor
index ac608208783cf06a384555c93d8af3d9b499802e..f39285ad386ba5105a7fb66091c9261e2b8e199e 100644 (file)
--- a/extra/images/png/png.factor
+++ b/extra/images/png/png.factor
@@ -215,7 +215,7 @@ ERROR: bad-filter n ;
     loading-png width>> :> width
     loading-png bit-depth>> :> bit-depth
     loading-png png-components-per-pixel :> #bytes!
-    width height * f <array> width <sliced-groups> :> image
+    width height * f <array> width <groups> :> image
 
     bit-depth 16 = [
         #bytes 2 * #bytes!
@@ -228,7 +228,7 @@ ERROR: bad-filter n ;
     [ pass 7 < ] [
       ba loading-png pass read-adam7-subimage
 
-      #bytes <sliced-groups>
+      #bytes <groups>
 
       pass starting-row nth row!
       pass starting-col nth col!

diff --git a/extra/images/tiff/tiff.factor b/extra/images/tiff/tiff.factor
index 2a6e184a3b31843f7240d727dc3e27eb250143e5..bdba422fd8f1633e6ac8cb0b9c70574c2117fcb3 100755 (executable)
--- a/extra/images/tiff/tiff.factor
+++ b/extra/images/tiff/tiff.factor
@@ -321,13 +321,13 @@ ERROR: bad-small-ifd-type n ;
     {
         { 1 [ ] } ! blank
         { 2 [ ] } ! read c strings here
-        { 3 [ 2 <sliced-groups> [ endian> ] map ] }
-        { 4 [ 4 <sliced-groups> [ endian> ] map ] }
-        { 5 [ 8 <sliced-groups> [ "II" unpack first2 / ] map ] }
+        { 3 [ 2 <groups> [ endian> ] map ] }
+        { 4 [ 4 <groups> [ endian> ] map ] }
+        { 5 [ 8 <groups> [ "II" unpack first2 / ] map ] }
         { 6 [ [ 8 >signed ] map ] }
         { 7 [ ] } ! blank
-        { 8 [ 2 <sliced-groups> [ endian> 16 >signed ] map ] }
-        { 9 [ 4 <sliced-groups> [ endian> 32 >signed ] map ] }
+        { 8 [ 2 <groups> [ endian> 16 >signed ] map ] }
+        { 9 [ 4 <groups> [ endian> 32 >signed ] map ] }
         { 10 [ 8 group [ "ii" unpack first2 / ] map ] }
         { 11 [ 4 group [ "f" unpack ] map ] }
         { 12 [ 8 group [ "d" unpack ] map ] }