From 436af7599255ca66d63a59a6e5ccdad36e0b0b6b Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 31 Jul 2022 12:10:17 -0500 Subject: [PATCH] factor: swap over is `tuck` --- basis/game/input/gtk/gtk.factor | 2 +- basis/peg/peg.factor | 2 +- extra/http2/hpack/hpack.factor | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/game/input/gtk/gtk.factor b/basis/game/input/gtk/gtk.factor index 56f6be182b..93b4860874 100644 --- a/basis/game/input/gtk/gtk.factor +++ b/basis/game/input/gtk/gtk.factor @@ -22,7 +22,7 @@ TUPLE: linux-controller < controller path meta state thread fd buttons quit? ; dup meta>> "path" of binary handle>> fd>> >>fd H{ } clone >>state dup meta>> "capabilities" of EV_KEY of keys seq>explode-positions >>buttons ; inline - ! swap over state>> '[ _ _ read-events ] in-thread ; + ! tuck state>> '[ _ _ read-events ] in-thread ; M: linux-controller dispose* fd>> close drop ; diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor index 5168230588..a73df1c004 100644 --- a/basis/peg/peg.factor +++ b/basis/peg/peg.factor @@ -266,7 +266,7 @@ GENERIC: (compile) ( peg -- quot ) pos get apply-rule process-parser-result ; : preset-parser-word ( parser -- word parser ) - gensym swap over >>compiled ; + gensym tuck >>compiled ; : define-parser-word ( word parser -- ) ! Return the body of the word that is the compiled version diff --git a/extra/http2/hpack/hpack.factor b/extra/http2/hpack/hpack.factor index b5c87fd889..328b56b1d0 100644 --- a/extra/http2/hpack/hpack.factor +++ b/extra/http2/hpack/hpack.factor @@ -154,7 +154,7 @@ CONSTANT: static-table { : encode-integer ( first-byte int prefix-length -- bytes ) 2^ 1 - 2dup < [ drop bitor 1byte-array ] - [ swap over [ bitor 1byte-array >byte-vector ] [ - ] 2bi* + [ tuck [ bitor 1byte-array >byte-vector ] [ - ] 2bi* [ dup 128 >= ] [ [ 128 mod 128 + over push ] [ 128 /i ] bi ] while over push >byte-array ] if ; -- 2.34.1