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

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

7
extra/xml/errors/errors.factor
View File

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