From 102aa2cbc12cc5f50a82ae922f832bd02e1d017f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 28 Feb 2015 15:34:24 -0800
Subject: [PATCH] xml.data: make tags support assoc protocol as documented.

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

diff --git a/basis/xml/data/data.factor b/basis/xml/data/data.factor
index 8c6c11cd44..71d5946f61 100644
--- 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