xml: Rename unclosed.

2013-03-23 23:08:15 -07:00 · 2013-03-23 23:08:15 -07:00 · c74d19512e
parent 8160bb036d
commit c74d19512e
2 changed files with 2 additions and 2 deletions
--- 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 ;
--- 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