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

[factor.git] / extra / fries / fries.factor

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! ;