From 0b21c84e75fe3ed1689c656338bf5f9d17d232dd Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 6 May 2008 12:16:04 -0500 Subject: [PATCH] fix errors i introduced with the state-parser cleanup --- extra/xml/errors/errors.factor | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/extra/xml/errors/errors.factor b/extra/xml/errors/errors.factor index 3e24d7e720..53f2046a54 100644 --- a/extra/xml/errors/errors.factor +++ b/extra/xml/errors/errors.factor @@ -119,9 +119,8 @@ M: bad-version summary ( obj -- str ) num>> . ] with-string-writer ; -TUPLE: notags < parsing-error ; -: - \ notags parsing-error ; +TUPLE: notags ; +C: 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 ;