steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-08-30 14:06:10 -05:00
parent bc27b82ebc
commit dad17acaf3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/peg/peg.factor
View File

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