namespaces: Rename ``bind`` to ``with-variables``. Update a few places that called...

[factor.git] / basis / match / match.factor

diff --git a/basis/match/match.factor b/basis/match/match.factor
index ca8e8163a41141dfab823e85c9134cefdeb37059..2c5fdf5a017dcf283999150e3110f79277395887 100644 (file)
--- a/basis/match/match.factor
+++ b/basis/match/match.factor
@@ -48,7 +48,7 @@ MACRO: match-cond ( assoc -- )
     [
         first2
         [ [ dupd match ] curry ] dip
-        [ bind ] curry rot
+        [ with-variables ] curry rot
         [ ?if ] 2curry append
     ] reduce ;
 
@@ -63,7 +63,7 @@ MACRO: match-cond ( assoc -- )
 
 : match-replace ( object pattern1 pattern2 -- result )
     [ match [ "Pattern does not match" throw ] unless* ] dip swap
-    [ replace-patterns ] bind ;
+    [ replace-patterns ] with-variables ;
 
 : ?1-tail ( seq -- tail/f )
     dup length zero? not [ rest ] [ drop f ] if ;