xml.data: fix issue with empty tags not being printed use shortened <tag/> format.

db4
John Benediktsson 2015-02-28 16:00:00 -08:00
parent e243a886d3
commit c7f440e097
1 changed files with 2 additions and 2 deletions

View File

@ -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