xml.data: make tags support assoc protocol as documented.

2015-02-28 15:34:24 -08:00 · 2015-02-28 15:34:24 -08:00 · 102aa2cbc1
parent 1d251f7b6a
commit 102aa2cbc1
1 changed files with 4 additions and 0 deletions
--- a/basis/xml/data/data.factor
+++ b/basis/xml/data/data.factor
@ -157,6 +157,10 @@ TUPLE: tag
 CONSULT: sequence-protocol tag children>> ;
 INSTANCE: tag sequence

+! They also follow the assoc protocol (for attributes)
+CONSULT: assoc-protocol tag attrs>> ;
+INSTANCE: tag assoc
+
 CONSULT: name tag name>> ;

 M: tag like