over push -> suffix!, over push-all -> append!

diff --git a/basis/alien/syntax/syntax.factor b/basis/alien/syntax/syntax.factor
index c51a446b6ce7c5e056d8d37e5bad69fbd39a79d1..609ed2826d9d526c2ee40487e18442b82b9feb94 100644 (file)
--- a/basis/alien/syntax/syntax.factor
+++ b/basis/alien/syntax/syntax.factor
@@ -37,7 +37,7 @@ ERROR: no-such-symbol name library ;
     2dup load-library dlsym [ 2nip ] [ no-such-symbol ] if* ;
 
 SYNTAX: &:
-    scan "c-library" get '[ _ _ address-of ] over push-all ;
+    scan "c-library" get '[ _ _ address-of ] append! ;
 
 : global-quot ( type word -- quot )
     name>> "c-library" get '[ _ _ address-of 0 ]

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 417f188c3ce9eda249ba44898043382ce3b2b54f..d5e5fdc6c3d6badfb673aea3c2ec1cfd63ca84c9 100755 (executable)
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -350,7 +350,7 @@ PRIVATE>
 : parse-struct-slots ( slots -- slots' more? )
     scan {
         { ";" [ f ] }
-        { "{" [ parse-struct-slot over push t ] }
+        { "{" [ parse-struct-slot suffix! t ] }
         { f [ unexpected-eof ] }
         [ invalid-struct-slot ]
     } case ;
@@ -378,7 +378,7 @@ SYNTAX: S@
 
 : parse-struct-slot` ( accum -- accum )
     scan-string-param scan-c-type` \ } parse-until
-    [ <struct-slot-spec> over push ] 3curry over push-all ;
+    [ <struct-slot-spec> suffix! ] 3curry append! ;
 
 : parse-struct-slots` ( accum -- accum more? )
     scan {
@@ -390,9 +390,9 @@ PRIVATE>
 
 FUNCTOR-SYNTAX: STRUCT:
     scan-param suffix!
-    [ 8 <vector> ] over push-all
+    [ 8 <vector> ] append!
     [ parse-struct-slots` ] [ ] while
-    [ >array define-struct-class ] over push-all ;
+    [ >array define-struct-class ] append! ;
 
 USING: vocabs vocabs.loader ;
 

diff --git a/basis/fry/fry.factor b/basis/fry/fry.factor
index 046da86b7bf162fb73d4324a1ffc0c348d7ca8a5..d68e2d13a82a3edb6b4b30b7c1ac28d97eef2fdf 100644 (file)
--- a/basis/fry/fry.factor
+++ b/basis/fry/fry.factor
@@ -53,4 +53,4 @@ M: callable deep-fry
 
 M: object deep-fry , ;
 
-SYNTAX: '[ parse-quotation fry over push-all ;
+SYNTAX: '[ parse-quotation fry append! ;

diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor
index 1d11d78b33f90045f4a1235ac50975f86030a63c..56aa6f0d1be913ecb56895964d082cae3ad03116 100644 (file)
--- a/basis/functors/functors.factor
+++ b/basis/functors/functors.factor
@@ -43,7 +43,7 @@ M: object (fake-quotations>) , ;
 
 : parse-definition* ( accum -- accum )
     parse-definition >fake-quotations suffix!
-    [ fake-quotations> first ] over push-all ;
+    [ fake-quotations> first ] append! ;
 
 : parse-declared* ( accum -- accum )
     complete-effect
@@ -74,7 +74,7 @@ FUNCTOR-SYNTAX: MIXIN:
 FUNCTOR-SYNTAX: M:
     scan-param suffix!
     scan-param suffix!
-    [ create-method-in dup method-body set ] over push-all
+    [ create-method-in dup method-body set ] append! 
     parse-definition*
     \ define* suffix! ;
 
@@ -82,7 +82,7 @@ FUNCTOR-SYNTAX: C:
     scan-param suffix!
     scan-param suffix!
     complete-effect
-    [ [ [ boa ] curry ] over push-all ] dip suffix!
+    [ [ [ boa ] curry ] append! ] dip suffix!
     \ define-declared* suffix! ;
 
 FUNCTOR-SYNTAX: :
@@ -114,7 +114,7 @@ FUNCTOR-SYNTAX: MACRO:
     parse-declared*
     \ define-macro suffix! ;
 
-FUNCTOR-SYNTAX: inline [ word make-inline ] over push-all ;
+FUNCTOR-SYNTAX: inline [ word make-inline ] append! ;
 
 FUNCTOR-SYNTAX: call-next-method T{ fake-call-next-method } suffix! ;
 

diff --git a/basis/interpolate/interpolate.factor b/basis/interpolate/interpolate.factor
index ea965aac5b48e1922c9b946c325bf27326507c3c..6e5f68fcdfba9c494244ff507b5451aaaa0a6e30 100644 (file)
--- a/basis/interpolate/interpolate.factor
+++ b/basis/interpolate/interpolate.factor
@@ -40,4 +40,4 @@ MACRO: interpolate ( string -- )
 
 SYNTAX: I[
     "]I" parse-multiline-string
-    interpolate-locals over push-all ;
+    interpolate-locals append! ;

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 8cdd1d97bd9d35b9bf4df4b12fe68aa4457e85ce..3ea4c105f5009a651450a88f1570e285a956a6fa 100644 (file)
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -53,7 +53,7 @@ M: input-port stream-read-partial ( max stream -- byte-array/f )
 : read-loop ( count port accum -- )
     pick over length - dup 0 > [
         pick read-step dup [
-            over push-all read-loop
+            append! read-loop
         ] [
             2drop 2drop
         ] if
@@ -78,7 +78,7 @@ M: input-port stream-read
 
 : read-until-loop ( seps port buf -- separator/f )
     2over read-until-step over [
-        [ over push-all ] dip dup [
+        [ append! ] dip dup [
             [ 3drop ] dip
         ] [
             drop read-until-loop

diff --git a/basis/locals/locals.factor b/basis/locals/locals.factor
index 4f908aaf066200a41b27ecdda17d514669000080..aa0a064c0d0eee3b57ae7c85f3db8ae83976c249 100644 (file)
--- a/basis/locals/locals.factor
+++ b/basis/locals/locals.factor
@@ -9,13 +9,13 @@ SYNTAX: :>
     scan locals get [ :>-outside-lambda-error ] unless*
     [ make-local ] bind <def> suffix! ;
 
-SYNTAX: [| parse-lambda over push-all ;
+SYNTAX: [| parse-lambda append! ;
 
-SYNTAX: [let parse-let over push-all ;
+SYNTAX: [let parse-let append! ;
 
-SYNTAX: [let* parse-let* over push-all ;
+SYNTAX: [let* parse-let* append! ;
 
-SYNTAX: [wlet parse-wlet over push-all ;
+SYNTAX: [wlet parse-wlet append! ;
 
 SYNTAX: :: (::) define-declared ;
 

diff --git a/basis/peg/parsers/parsers.factor b/basis/peg/parsers/parsers.factor
index 850b585190646384904f7ec17f1785f7c593dc61..c8a8080f38f4ac9df3ded6272bd4f30093913ca3 100644 (file)
--- a/basis/peg/parsers/parsers.factor
+++ b/basis/peg/parsers/parsers.factor
@@ -40,7 +40,7 @@ M: just-parser (compile) ( parser -- quot )
 <PRIVATE
 
 : flatten-vectors ( pair -- vector )
-  first2 over push-all ;
+  first2 append! ;
 
 PRIVATE>
 

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index 9e777b86afe384e976a3774e7ef77a0e4916134f..4a247a8a0fffb0e581bb6d90fb627f53ec925ab3 100644 (file)
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -634,7 +634,7 @@ SYNTAX: PEG:
           word swap effect define-declared
         ]
       ] with-compilation-unit
-    ] over push-all
+    ] append!
   ] ;
 
 USING: vocabs vocabs.loader ;

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 0e7a0cc3f103222a8bc36ac87fdeb3ce5ac92b50..bfd107dbb64772824b5757e79a0c796296bbdd2e 100755 (executable)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -19,7 +19,7 @@ M: object random-bytes* ( n tuple -- byte-array )
     [ pick '[ _ random-32* 4 >le _ push-all ] times ]
     [
         over zero?
-        [ 2drop ] [ random-32* 4 >le swap head over push-all ] if
+        [ 2drop ] [ random-32* 4 >le swap head append! ] if
     ] bi-curry bi* ;
 
 M: object random-32* ( tuple -- r ) 4 swap random-bytes* le> ;

diff --git a/basis/xmode/rules/rules.factor b/basis/xmode/rules/rules.factor
index 51f216fa44bd32e82bdf542999c885d0d77ec2e0..ffe6db3b4696f9cf32a5df17d273ab6f084293ae 100644 (file)
--- a/basis/xmode/rules/rules.factor
+++ b/basis/xmode/rules/rules.factor
@@ -43,7 +43,7 @@ MEMO: standard-rule-set ( id -- ruleset )
 
 : ?push-all ( seq1 seq2 -- seq1+seq2 )
     [
-        over [ [ V{ } like ] dip over push-all ] [ nip ] if
+        over [ [ V{ } like ] dip append! ] [ nip ] if
     ] when* ;
 
 : rule-set-no-word-sep* ( ruleset -- str )

diff --git a/core/effects/parser/parser.factor b/core/effects/parser/parser.factor
index da27dc28b459763fa3be83ec06e3174b7d906db8..d57fbd97074bf1e54548e17b975aac67a619235a 100644 (file)
--- a/core/effects/parser/parser.factor
+++ b/core/effects/parser/parser.factor
@@ -35,4 +35,4 @@ ERROR: stack-effect-omits-dashes effect ;
     "(" expect ")" parse-effect ;
 
 : parse-call( ( accum word -- accum )
-    [ ")" parse-effect ] dip 2array over push-all ;
+    [ ")" parse-effect ] dip 2array append! ;

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 8e15f73ed70b4d1cfad136b432594ae2fa97f5e3..a32c9381a62e4a56cbba607b1e24779a44b3bc8d 100755 (executable)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -741,7 +741,7 @@ PRIVATE>
 : concat-as ( seq exemplar -- newseq )
     swap [ { } ] [
         [ sum-lengths over new-resizable ] keep
-        [ over push-all ] each
+        [ append! ] each
     ] if-empty swap like ;
 
 : concat ( seq -- newseq )

diff --git a/extra/closures/closures.factor b/extra/closures/closures.factor
index 79fcf7564ee5e84a4a6fb05688a263552896c432..faa8ec07eeca63760f251398efbe6a15a5ff162b 100644 (file)
--- a/extra/closures/closures.factor
+++ b/extra/closures/closures.factor
@@ -4,10 +4,10 @@ SYMBOL: |
 
 ! Selective Binding
 : delayed-bind-with ( vars quot -- quot' ) '[ _ dup [ get ] map zip >hashtable [ _ bind ] curry ] ;
-SYNTAX: C[ | parse-until parse-quotation delayed-bind-with over push-all ;
+SYNTAX: C[ | parse-until parse-quotation delayed-bind-with append! ;
 ! Common ones
-SYNTAX: DIR[ parse-quotation { current-directory } swap delayed-bind-with over push-all ;
+SYNTAX: DIR[ parse-quotation { current-directory } swap delayed-bind-with append! ;
 
 ! Namespace Binding
 : bind-to-namespace ( quot -- quot' ) '[ namespace [ _ bind ] curry ] ;
-SYNTAX: NS[ parse-quotation bind-to-namespace over push-all ;
\ No newline at end of file
+SYNTAX: NS[ parse-quotation bind-to-namespace append! ;

diff --git a/extra/fonts/syntax/syntax.factor b/extra/fonts/syntax/syntax.factor
index c296dfb3df42c952b1b70152c6eddff28d59510b..34ccbc8aa8f1d8864a9c0dd53bfb43f441df5c86 100644 (file)
--- a/extra/fonts/syntax/syntax.factor
+++ b/extra/fonts/syntax/syntax.factor
@@ -13,4 +13,4 @@ SYNTAX: FONT: \ ; parse-until {
     [ [ italic = ] find nip [ >>italic? ] install ]
     [ [ bold = ] find nip [ >>bold? ] install ]
     [ [ fontname? ] find nip [ >>name* ] install ]
-} cleave 4array concat '[ dup font>> @ drop ] over push-all ;
+} cleave 4array concat '[ dup font>> @ drop ] append! ;

diff --git a/extra/fries/fries.factor b/extra/fries/fries.factor
index f67d0d7cd3ebc28358fcf82df5220aa11416fbb5..133e8913ddf684ffd83e9abedf7241684a6c0d8c 100644 (file)
--- a/extra/fries/fries.factor
+++ b/extra/fries/fries.factor
@@ -8,6 +8,6 @@ IN: fries
     [ unclip-last [ [ spin 1array glue ] reduce-r ] 2curry ]
     [ length 1 - 1 <effect> [ call-effect ] 2curry ] bi ;
 
-SYNTAX: i" parse-string rest "_" str-fry over push-all ;
-SYNTAX: i{ \ } parse-until >array { _ } gen-fry over push-all ;
-SYNTAX: iV{ \ } parse-until >vector V{ _ } gen-fry over push-all ;
+SYNTAX: i" parse-string rest "_" str-fry append! ;
+SYNTAX: i{ \ } parse-until >array { _ } gen-fry append! ;
+SYNTAX: iV{ \ } parse-until >vector V{ _ } gen-fry append! ;

diff --git a/extra/gpu/demos/bunny/bunny.factor b/extra/gpu/demos/bunny/bunny.factor
index a741af800263b15d4beed4529fb03fb5da62a85e..09853263ce58a8ce882e6a9b34ec9fd8e2891cca 100755 (executable)
--- a/extra/gpu/demos/bunny/bunny.factor
+++ b/extra/gpu/demos/bunny/bunny.factor
@@ -107,7 +107,7 @@ UNIFORM-TUPLE: loading-uniforms
     [
         numbers {
             { [ dup length 5 = ] [ <bunny-vertex> pick push ] }
-            { [ dup first 3 = ] [ rest over push-all ] }
+            { [ dup first 3 = ] [ rest append! ] }
             [ drop ]
         } cond
     ] each-line-tokens ; inline

diff --git a/extra/infix/infix.factor b/extra/infix/infix.factor
index 4530d6c5c4f7b068be6f896823863743b6c8245c..ab578124f803ed12e8d0535af1fecea6427e0222 100644 (file)
--- a/extra/infix/infix.factor
+++ b/extra/infix/infix.factor
@@ -93,4 +93,4 @@ PRIVATE>
 
 SYNTAX: [infix|
     "|" parse-bindings "infix]" parse-infix-locals <let>
-    ?rewrite-closures over push-all ;
+    ?rewrite-closures append! ;

diff --git a/extra/project-euler/017/017.factor b/extra/project-euler/017/017.factor
index 53513691ff795147030153c9568818e9042a7d0e..827e478da02bfa14e4c79557cc51e24b2cb1d9a2 100644 (file)
--- a/extra/project-euler/017/017.factor
+++ b/extra/project-euler/017/017.factor
@@ -24,7 +24,7 @@ IN: project-euler.017
 ! --------
 
 : euler017 ( -- answer )
-    1000 [1,b] SBUF" " clone [ number>text over push-all ] reduce [ Letter? ] count ;
+    1000 [1,b] SBUF" " clone [ number>text append! ] reduce [ Letter? ] count ;
 
 ! [ euler017 ] 100 ave-time
 ! 15 ms ave run time - 1.71 SD (100 trials)

diff --git a/extra/project-euler/038/038.factor b/extra/project-euler/038/038.factor
index dd700510824ab3afd782d663a73accaf6e116a10..34b4cd91faa5d42dfdcd55fc07250d5c4d9df7b0 100755 (executable)
--- a/extra/project-euler/038/038.factor
+++ b/extra/project-euler/038/038.factor
@@ -39,7 +39,7 @@ IN: project-euler.038
     pick length 8 > [
         2drop 10 digits>integer
     ] [
-        [ * number>digits over push-all ] 2keep 1 + (concat-product)
+        [ * number>digits append! ] 2keep 1 + (concat-product)
     ] if ;
 
 : concat-product ( n -- m )

diff --git a/extra/project-euler/040/040.factor b/extra/project-euler/040/040.factor
index a60714357ea2578dc36f4b460ebfda2cfcfb9b3a..09185e9a64609100394d39fccef02c9d087cc677 100755 (executable)
--- a/extra/project-euler/040/040.factor
+++ b/extra/project-euler/040/040.factor
@@ -28,7 +28,7 @@ IN: project-euler.040
 
 : (concat-upto) ( n limit str -- str )
     2dup length > [
-        pick number>string over push-all rot 1 + -rot (concat-upto)
+        pick number>string append! [ 1 + ] 2dip (concat-upto)
     ] [
         2nip
     ] if ;

diff --git a/extra/ui/gadgets/controls/controls.factor b/extra/ui/gadgets/controls/controls.factor
index 0c7841b11f11cf60bb3d77772b37ce31503efce0..5de6da87102089f720591b0b246f8019e3ea755f 100644 (file)
--- a/extra/ui/gadgets/controls/controls.factor
+++ b/extra/ui/gadgets/controls/controls.factor
@@ -59,9 +59,9 @@ M: model-field model-changed 2dup model*>> =
 : <slider> ( init page min max step -- slider ) <range> horizontal slider:<slider> ;
 
 : image-prep ( -- image ) scan current-vocab name>> "vocab:" "/icons/" surround ".tiff" surround <image-name> dup cached-image drop ;
-SYNTAX: IMG-MODEL-BTN: image-prep [ <model-btn> ] curry over push-all ;
+SYNTAX: IMG-MODEL-BTN: image-prep [ <model-btn> ] curry append! ;
 
-SYNTAX: IMG-BTN: image-prep [ swap <button> ] curry over push-all ;
+SYNTAX: IMG-BTN: image-prep [ swap <button> ] curry append! ;
 
 GENERIC: output-model ( gadget -- model )
 M: gadget output-model model>> ;
@@ -80,4 +80,4 @@ INSTANCE: gadget-monad monad
 INSTANCE: gadget monad
 M: gadget monad-of drop gadget-monad ;
 M: gadget-monad return drop <gadget> swap >>model ;
-M: gadget >>= output-model [ swap call( x -- y ) ] curry ; 
\ No newline at end of file
+M: gadget >>= output-model [ swap call( x -- y ) ] curry ; 

diff --git a/extra/ui/gadgets/layout/layout.factor b/extra/ui/gadgets/layout/layout.factor
index bd3ab1dbc72ffd579915113797e40ef5e917ba45..7bdde95d60e8fd4499be1a6e2b0ee3d492e15e95 100644 (file)
--- a/extra/ui/gadgets/layout/layout.factor
+++ b/extra/ui/gadgets/layout/layout.factor
@@ -26,8 +26,8 @@ DEFER: with-interface
 : insertion-quot ( quot -- quot' ) make:building get [ [ placeholder? ] find-last nip [ <placeholder> dup , ] unless*
     templates get spin '[ [ _ templates set _ , @ ] with-interface ] ] when* ;
 
-SYNTAX: ,% scan string>number [ <layout> , ] curry over push-all ;
-SYNTAX: ->% scan string>number '[ [ _ <layout> , ] [ output-model ] bi ] over push-all ;
+SYNTAX: ,% scan string>number [ <layout> , ] curry append! ;
+SYNTAX: ->% scan string>number '[ [ _ <layout> , ] [ output-model ] bi ] append! ;
 
 GENERIC: -> ( uiitem -- model )
 M: gadget -> dup , output-model ;
@@ -55,7 +55,7 @@ M: model -> dup , ;
 ERROR: not-in-template word ;
 SYNTAX: $ CREATE-WORD dup
     [ [ dup templates get at [ nip , ] [ not-in-template ] if* ] curry (( -- )) define-declared "$" expect ]
-    [ [ <placeholder> [ swap templates get set-at ] keep , ] curry ] bi over push-all ;
+    [ [ <placeholder> [ swap templates get set-at ] keep , ] curry ] bi append! ;
 
 : insert-gadget ( number parent gadget -- ) -rot [ but-last insert-nth ] change-children drop ;
 : insert-size ( number parent size -- ) -rot [ but-last insert-nth ] change-sizes drop ;
@@ -86,4 +86,4 @@ M: model add-gadget-at parent>> dup book:book? [ "No models in books" throw ]
 M: model >>= [ swap insertion-quot <action> ] curry ;
 M: model fmap insertion-quot <mapped> ;
 M: model $> insertion-quot side-effect-model new-mapped-model ;
-M: model <$ insertion-quot quot-model new-mapped-model ;
\ No newline at end of file
+M: model <$ insertion-quot quot-model new-mapped-model ;