tests for MATCH-VARS:

diff --git a/contrib/match/tests.factor b/contrib/match/tests.factor
index 78df681b131c41e45060de426928e85d932814de..47b93524d4913c0c27428082b6c6945d120c9f01 100644 (file)
--- a/contrib/match/tests.factor
+++ b/contrib/match/tests.factor
@@ -3,8 +3,7 @@
 USING: test match namespaces arrays ;
 IN: temporary
 
-SYMBOL: ?a
-SYMBOL: ?b
+MATCH-VARS: ?a ?b ;
 
 [ H{ { ?a 1 } { ?b 2 } } ] [
  { ?a ?b } { 1 2 } match
@@ -13,7 +12,7 @@ SYMBOL: ?b
 [ { 1 2 } ] [ 
   { 1 2 } 
   {
-    { { ?a ?b } [ ?a get ?b get 2array ] }
+    { { ?a ?b } [ ?a ?b 2array ] }
   } match-cond
 ] unit-test