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

[factor.git] / extra / closures / closures.factor

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