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