xml: use ERROR:

diff --git a/basis/xml/errors/errors.factor b/basis/xml/errors/errors.factor
index fea516374ddb0126330e8e5256f6b4d11ffa65e4..7ac5c8420eb95020ec5f7142641cf2126de7d90a 100644 (file)
--- a/basis/xml/errors/errors.factor
+++ b/basis/xml/errors/errors.factor
@@ -47,12 +47,12 @@ XML-ERROR: no-entity thing ;
 
 XML-ERROR: mismatched open close ;
 
-TUPLE: unclosed line column tags ;
+ERROR: unclosed line column tags ;
 
 : throw-unclosed ( -- * )
     get-line get-column
     xml-stack get rest-slice [ first name>> ] map
-    \ unclosed boa throw ;
+    unclosed ;
 
 XML-ERROR: bad-uri string ;
 

diff --git a/basis/xml/syntax/syntax.factor b/basis/xml/syntax/syntax.factor
index 8113ed7f742f0b0e431cdf0c6dea90cdc4cb682e..d43c127e1f056dc8dbd2f7aef787c40c00a31338 100644 (file)
--- a/basis/xml/syntax/syntax.factor
+++ b/basis/xml/syntax/syntax.factor
@@ -10,13 +10,13 @@ IN: xml.syntax
 
 <PRIVATE
 
-TUPLE: no-tag name word ;
+ERROR: no-tag name word ;
+
 M: no-tag summary
     drop "The tag-dispatching word has no method for the given tag name" ;
 
 : compile-tags ( word xtable -- quot )
-    >alist swap '[ _ no-tag boa throw ] suffix
-    '[ dup main>> _ case ] ;
+    >alist swap '[ _ no-tag ] suffix '[ dup main>> _ case ] ;
 
 : define-tags ( word effect -- )
     [ dup dup "xtable" word-prop compile-tags ] dip define-declared ;