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

diff --git a/basis/xml/data/data.factor b/basis/xml/data/data.factor
index 8c6c11cd44bfce113987ed7798fc70878df82b9c..71d5946f61a44d881c67c8e8041e8e55e571d1c4 100644 (file)
--- 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