Fix load error

db4
Slava Pestov 2009-01-30 23:26:41 -06:00
parent b876e08b56
commit b2ee879c07
1 changed files with 2 additions and 2 deletions

View File

@ -157,7 +157,7 @@ M: seq-rule handle-rule-start
mark-token
add-remaining-token
tuck body-token>> next-token,
get-delegate [ push-context ] when* ;
delegate>> [ push-context ] when* ;
UNION: abstract-span-rule span-rule eol-span-rule ;
@ -168,7 +168,7 @@ M: abstract-span-rule handle-rule-start
tuck rule-match-token* next-token,
! ... end subst ...
dup context get (>>in-rule)
get-delegate push-context ;
delegate>> push-context ;
M: span-rule handle-rule-end
2drop ;