cleanup "over push" is "suffix!".

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 0f25a812be83c33422da8d4ee7acb11192ce752a..ad95b6a6c51d92c9466cc07cd88950aba15ec955 100644 (file)
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -14,7 +14,7 @@ ERROR: malformed-base64 ;
     [ drop read1-ignoring ] [ 2nip ] if ; inline recursive
 
 : push-ignoring ( accum ch -- accum )
-    dup { f 0 } member-eq? [ drop ] [ over push ] if ; inline
+    dup { f 0 } member-eq? [ drop ] [ suffix! ] if ; inline
 
 : read-ignoring ( n ignoring stream -- str/f )
     [ [ <sbuf> ] keep ] 2dip

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index 58e205fcfd5e00a52132c831921906f6d8051417..d1894108c083b9742d7a348452e1bfe40d9a1c57 100644 (file)
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -162,7 +162,7 @@ IN: math.matrices
     [ dupd proj v- ] each ;
 
 : gram-schmidt ( seq -- orthogonal )
-    V{ } clone [ over (gram-schmidt) over push ] reduce ;
+    V{ } clone [ over (gram-schmidt) suffix! ] reduce ;
 
 : norm-gram-schmidt ( seq -- orthonormal )
     gram-schmidt [ normalize ] map ;

diff --git a/basis/specialized-vectors/specialized-vectors-tests.factor b/basis/specialized-vectors/specialized-vectors-tests.factor
index 1519ad415eb0afc0b6b15b9a938f1aee7ed79502..4522fd059979b3b1aa793d693239f28a93ef1964 100644 (file)
--- a/basis/specialized-vectors/specialized-vectors-tests.factor
+++ b/basis/specialized-vectors/specialized-vectors-tests.factor
@@ -4,6 +4,6 @@ tools.test kernel sequences alien.c-types ;
 SPECIALIZED-ARRAY: float
 SPECIALIZED-VECTORS: float double ;
 
-[ 3 ] [ double-vector{ 1 2 } 3 over push length ] unit-test
+[ 3 ] [ double-vector{ 1 2 } 3 suffix! length ] unit-test
 
-[ t ] [ 10 float-array{ } new-resizable float-vector? ] unit-test
\ No newline at end of file
+[ t ] [ 10 float-array{ } new-resizable float-vector? ] unit-test

diff --git a/basis/splitting/monotonic/monotonic.factor b/basis/splitting/monotonic/monotonic.factor
index 6c7f3463a59fea57d83b360f05702d6dfed2f1a6..232c02a54e1f799328b336187926e2440f038a49 100644 (file)
--- a/basis/splitting/monotonic/monotonic.factor
+++ b/basis/splitting/monotonic/monotonic.factor
@@ -9,9 +9,9 @@ IN: splitting.monotonic
 
 : (monotonic-split) ( seq quot -- newseq )
     [ V{ } clone V{ } clone ] 2dip [ ] swap '[
-        [ [ over push ] keep ] dip
-        [ @ [ over push V{ } clone ] unless ] keep
-    ] map-reduce over push over push { } like ; inline
+        [ [ suffix! ] keep ] dip
+        [ @ [ suffix! V{ } clone ] unless ] keep
+    ] map-reduce suffix! suffix! { } like ; inline
 
 PRIVATE>
 

diff --git a/basis/vlists/vlists-tests.factor b/basis/vlists/vlists-tests.factor
index 6df942eb84ed219994bfc2bdaf301814f34ac099..0bf0d95c4995ffa9d143205fd3396dbf483c3c0e 100644 (file)
--- a/basis/vlists/vlists-tests.factor
+++ b/basis/vlists/vlists-tests.factor
@@ -20,7 +20,7 @@ IN: vlists.tests
     dup "v" get [ vector>> ] bi@ eq?
 ] unit-test
 
-[ VL{ } 3 over push ] must-fail
+[ VL{ } 3 suffix! ] must-fail
 
 [ 4 VL{ "hi" } set-first ] must-fail
 

diff --git a/core/byte-vectors/byte-vectors-tests.factor b/core/byte-vectors/byte-vectors-tests.factor
index 286b7c419e101749edc59c51ca2b838c9157aa36..6638b9df7a0f8c7fa25c82f2ad38ee1c83c56972 100644 (file)
--- a/core/byte-vectors/byte-vectors-tests.factor
+++ b/core/byte-vectors/byte-vectors-tests.factor
@@ -5,7 +5,7 @@ IN: byte-vectors.tests
 [ 0 ] [ 123 <byte-vector> length ] unit-test\r
 \r
 : do-it ( seq -- seq )\r
-    123 [ over push ] each-integer ;\r
+    123 [ suffix! ] each-integer ;\r
 \r
 [ t ] [\r
     3 <byte-vector> do-it\r

diff --git a/extra/benchmark/reverse-complement/reverse-complement.factor b/extra/benchmark/reverse-complement/reverse-complement.factor
index 5fb34065c5877f01ab47763d71b1e1523fc2c127..b6bddd3060c2b31b50b2e49bc09988cfdaab76f9 100644 (file)
--- a/extra/benchmark/reverse-complement/reverse-complement.factor
+++ b/extra/benchmark/reverse-complement/reverse-complement.factor
@@ -16,7 +16,7 @@ TR: trans-map ch>upper "ACGTUMRYKVHDB" "TGCAAKYRMBDHV" ;
 
 : do-line ( seq line -- seq )
     dup first ">;" member-eq?
-    [ over show-seq print dup delete-all ] [ over push ] if ;
+    [ over show-seq print dup delete-all ] [ suffix! ] if ;
 
 HINTS: do-line vector string ;
 

diff --git a/extra/jamshred/jamshred.factor b/extra/jamshred/jamshred.factor
index ce53fefcf5cb49e1e59898dece7d724bf61cd8dc..fc4457980d0fc499f64d69067d2478dc7d425021 100644 (file)
--- a/extra/jamshred/jamshred.factor
+++ b/extra/jamshred/jamshred.factor
@@ -26,7 +26,7 @@ M: jamshred-gadget draw-gadget* ( gadget -- )
     ] [
         [ jamshred>> jamshred-update ]
         [ relayout-1 ]
-        [ 100 milliseconds sleep jamshred-loop ] tri 
+        [ 100 milliseconds sleep jamshred-loop ] tri
     ] if ;
 
 M: jamshred-gadget graft* ( gadget -- )
@@ -57,7 +57,7 @@ M: jamshred-gadget ungraft* ( gadget -- )
 : handle-mouse-motion ( jamshred-gadget -- )
     hand-loc get [
         over last-hand-loc>> [
-            v- (handle-mouse-motion) 
+            v- (handle-mouse-motion)
         ] [ 2drop ] if* 
     ] 2keep >>last-hand-loc drop ;
 

diff --git a/extra/jamshred/tunnel/tunnel.factor b/extra/jamshred/tunnel/tunnel.factor
index 7d46eb1e9aad957b2f5f03710ea5e262bde78acc..2321bece1807002c4c22f7119002e4316870523d 100644 (file)
--- a/extra/jamshred/tunnel/tunnel.factor
+++ b/extra/jamshred/tunnel/tunnel.factor
@@ -32,9 +32,7 @@ CONSTANT: random-rotation-angle $[ pi 20 / ]
     random-color >>color dup segment-number++ ;
 
 : (random-segments) ( segments n -- segments )
-    dup 0 > [
-        [ dup last random-segment over push ] dip 1 - (random-segments)
-    ] [ drop ] if ;
+    [ dup last random-segment suffix! ] times ;
 
 CONSTANT: default-segment-radius 1
 

diff --git a/extra/project-euler/002/002.factor b/extra/project-euler/002/002.factor
index 63d6eac8b438bf59879faacbc440492f8e61183c..201e4f6743919754656c4f4322bdea403ec9a280 100644 (file)
--- a/extra/project-euler/002/002.factor
+++ b/extra/project-euler/002/002.factor
@@ -23,7 +23,7 @@ IN: project-euler.002
 <PRIVATE
 
 : (fib-upto) ( seq n limit -- seq )
-    2dup <= [ [ over push dup 2 tail* sum ] dip (fib-upto) ] [ 2drop ] if ;
+    2dup <= [ [ suffix! dup 2 tail* sum ] dip (fib-upto) ] [ 2drop ] if ;
 
 PRIVATE>
 

diff --git a/unmaintained/semantic-db/semantic-db.factor b/unmaintained/semantic-db/semantic-db.factor
index 2432dce42015c9eec5d0bccc69c023aad6edc212..c70386945657824003bbe557f591090cee2ae27a 100644 (file)
--- a/unmaintained/semantic-db/semantic-db.factor
+++ b/unmaintained/semantic-db/semantic-db.factor
@@ -259,7 +259,7 @@ C: <node-tree> node-tree
 
 : (get-node-chain) ( node next-selector seq -- seq )
     pick [
-        over push >r [ call ] keep r> (get-node-chain)
+        suffix! >r [ call ] keep r> (get-node-chain)
     ] [
         2nip
     ] if* ;