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

delocalise apply-memo-rule

db4
Chris Double 2008-04-05 02:07:17 +13:00
parent a4700e072e
commit 72dbac6a29
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/peg/peg.factor
View File

@ -179,14 +179,13 @@ C: <head> peg-head
] if ] if
] ; inline ] ; inline
:: apply-memo-rule ( r m -- ast ) : apply-memo-rule ( r m -- ast )
m pos>> pos set [ ans>> ] [ pos>> ] bi pos set
m ans>> left-recursion? [ dup left-recursion? [
r m ans>> setup-lr [ setup-lr ] keep seed>>
m ans>> seed>>
] [ ] [
m ans>> nip
] if ; ] if ; inline
: apply-rule ( r p -- ast ) : apply-rule ( r p -- ast )
2dup recall [ 2dup recall [