factor: swap over is `tuck`

[factor.git] / extra / http2 / hpack / hpack.factor

diff --git a/extra/http2/hpack/hpack.factor b/extra/http2/hpack/hpack.factor
index b5c87fd8890a248ef36029a9ef2dea186afb09ef..328b56b1d02aabc3eb2b069f49580bae68189608 100644 (file)
--- 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 ;