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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/xmode/marker/marker.factor
View File

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