xml.data: fix issue with empty tags not being printed use shortened <tag/> format.
parent
e243a886d3
commit
c7f440e097
|
@ -214,8 +214,8 @@ M: xml like
|
||||||
: <contained-tag> ( name attrs -- tag )
|
: <contained-tag> ( name attrs -- tag )
|
||||||
f <tag> ;
|
f <tag> ;
|
||||||
|
|
||||||
PREDICATE: contained-tag < tag children>> not ;
|
PREDICATE: contained-tag < tag children>> empty? ;
|
||||||
PREDICATE: open-tag < tag children>> ;
|
PREDICATE: open-tag < tag children>> empty? not ;
|
||||||
|
|
||||||
TUPLE: unescaped string ;
|
TUPLE: unescaped string ;
|
||||||
C: <unescaped> unescaped
|
C: <unescaped> unescaped
|
||||||
|
|
Loading…
Reference in New Issue