fix errors i introduced with the state-parser cleanup

db4
Doug Coleman 2008-05-06 12:16:04 -05:00
parent 6590c60cb3
commit 0b21c84e75
1 changed files with 3 additions and 4 deletions

View File

@ -119,9 +119,8 @@ M: bad-version summary ( obj -- str )
num>> .
] with-string-writer ;
TUPLE: notags < parsing-error ;
: <notags>
\ notags parsing-error ;
TUPLE: notags ;
C: <notags> notags
M: notags summary ( obj -- str )
drop "XML document lacks a main tag" ;
@ -162,7 +161,7 @@ M: bad-instruction summary ( obj -- str )
[
dup call-next-method write
"Misplaced processor instruction:" print
bad-instruction-inst write-item nl
instruction>> write-item nl
] with-string-writer ;
TUPLE: bad-directive < parsing-error dir ;