From dad17acaf3b4bc31344651766e9491ba2a47b483 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 30 Aug 2008 14:06:10 -0500
Subject: [PATCH] new accessors

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

diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 3d93b0ad06..0cf0382ee2 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -110,7 +110,7 @@ TUPLE: peg-head rule-id involved-set eval-set ;
 : input-from ( input -- n )
   #! Return the index from the original string that the
   #! input slice is based on.
-  dup slice? [ slice-from ] [ drop 0 ] if ;
+  dup slice? [ from>> ] [ drop 0 ] if ;
 
 : process-rule-result ( p result -- result )
   [