From c74d19512e9dcf6bc47e657e957030292c0ce8af Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 23 Mar 2013 23:08:15 -0700
Subject: [PATCH] xml: Rename unclosed.

---
 basis/xml/errors/errors.factor | 2 +-
 basis/xml/xml.factor           | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/xml/errors/errors.factor b/basis/xml/errors/errors.factor
index 11df24c978..fea516374d 100644
--- 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 58a5af16b0..91a48f17bd 100644
--- 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