From b51e4f642eb9e2929a093fe5224044bb72540248 Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Thu, 29 Nov 2007 17:41:58 +1300
Subject: [PATCH] Fix broken ebnf actions

---
 extra/peg/ebnf/ebnf.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/peg/ebnf/ebnf.factor b/extra/peg/ebnf/ebnf.factor
index fea31ce94b..e55ee9d852 100644
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@@ -83,7 +83,7 @@ M: ebnf-rule (generate-parser) ( ast -- id )
 
 M: ebnf-action (generate-parser) ( ast -- id )
   ebnf-action-word search 1quotation 
-  last-parser get swap action generate-parser ;
+  last-parser get get-parser swap action store-parser ;
 
 M: vector (generate-parser) ( ast -- id )
   [ generate-parser ] map peek ;