apply-memo-rule doesn't need to be inline
parent
72dbac6a29
commit
a6b160c447
|
@ -185,7 +185,7 @@ C: <head> peg-head
|
||||||
[ setup-lr ] keep seed>>
|
[ setup-lr ] keep seed>>
|
||||||
] [
|
] [
|
||||||
nip
|
nip
|
||||||
] if ; inline
|
] if ;
|
||||||
|
|
||||||
: apply-rule ( r p -- ast )
|
: apply-rule ( r p -- ast )
|
||||||
2dup recall [
|
2dup recall [
|
||||||
|
|
Loading…
Reference in New Issue