From c7f440e097f94abca26fd474ffac1d78f6fe4d97 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 28 Feb 2015 16:00:00 -0800
Subject: [PATCH] xml.data: fix issue with empty tags not being printed use
 shortened <tag/> format.

---
 basis/xml/data/data.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/xml/data/data.factor b/basis/xml/data/data.factor
index 71d5946f61..27f2d5a00f 100644
--- a/basis/xml/data/data.factor
+++ b/basis/xml/data/data.factor
@@ -214,8 +214,8 @@ M: xml like
 : <contained-tag> ( name attrs -- tag )
     f <tag> ;
 
-PREDICATE: contained-tag < tag children>> not ;
-PREDICATE: open-tag < tag children>> ;
+PREDICATE: contained-tag < tag children>> empty? ;
+PREDICATE: open-tag < tag children>> empty? not ;
 
 TUPLE: unescaped string ;
 C: <unescaped> unescaped