From 00d09d20e224bf2ec46dd4fc99bdfe906ff62b98 Mon Sep 17 00:00:00 2001
From: Chris Double <chris@bethia.(none)>
Date: Mon, 7 Apr 2008 12:07:44 +1200
Subject: [PATCH] Remove MATCH-VARS not used in pegs

---
 extra/peg/peg.factor | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 8d5d1c1560..3635abac84 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2007, 2008 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel sequences strings fry namespaces math assocs shuffle 
-       vectors arrays combinators.lib math.parser match
+       vectors arrays combinators.lib math.parser 
        unicode.categories sequences.lib compiler.units parser
        words quotations effects memoize accessors locals effects splitting ;
 IN: peg
@@ -265,8 +265,6 @@ SYMBOL: id
 
 TUPLE: token-parser symbol ;
 
-MATCH-VARS: ?token ;
-
 : parse-token ( input string -- result )
   #! Parse the string, returning a parse result
   dup >r ?head-slice [
@@ -388,9 +386,6 @@ M: optional-parser (compile) ( parser -- quot )
   p1>> compiled-parser 1quotation '[ @ check-optional ] ;
 
 TUPLE: semantic-parser p1 quot ;
-MATCH-VARS: ?quot ;
-
-MATCH-VARS: ?parser ;
 
 : check-semantic ( result quot -- result )
   over [
@@ -421,8 +416,6 @@ M: ensure-not-parser (compile) ( parser -- quot )
 
 TUPLE: action-parser p1 quot ;
 
-MATCH-VARS: ?action ;
-
 : check-action ( result quot -- result )
   over [
     over ast>> swap call >>ast