new accessors

2008-08-30 14:06:10 -05:00 · 2008-08-30 14:06:10 -05:00 · dad17acaf3
parent bc27b82ebc
commit dad17acaf3
1 changed files with 1 additions and 1 deletions
--- 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 )
  [