xml: Rename unclosed.

diff --git a/basis/xml/errors/errors.factor b/basis/xml/errors/errors.factor
index 11df24c978c224aaf32b0dda4d3b8a7a993ec429..fea516374ddb0126330e8e5256f6b4d11ffa65e4 100644 (file)
--- a/basis/xml/errors/errors.factor
+++ b/basis/xml/errors/errors.factor
@@ -49,7 +49,7 @@ XML-ERROR: mismatched open close ;
 
 TUPLE: unclosed line column tags ;
 
-: unclosed ( -- * )
+: throw-unclosed ( -- * )
     get-line get-column
     xml-stack get rest-slice [ first name>> ] map
     \ unclosed boa throw ;

diff --git a/basis/xml/xml.factor b/basis/xml/xml.factor
index 58a5af16b0506e3e937b629dc8c1edd30a28c0c5..91a48f17bd4d3d64687c6f3d5525537171145237 100644 (file)
--- a/basis/xml/xml.factor
+++ b/basis/xml/xml.factor
@@ -155,7 +155,7 @@ PRIVATE>
         init-xml init-xml-stack
         call
         [ process ] xml-loop
-        done? [ unclosed ] unless
+        done? [ throw-unclosed ] unless
         xml-stack get first second
     ] with-state ; inline