From 66944ac98b3a0527c38a71f9fd81386769d29e76 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <microdan@gmail.com>
Date: Tue, 27 Sep 2005 23:52:30 +0000
Subject: [PATCH] using make-hash for attributes

---
 contrib/xml.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/contrib/xml.factor b/contrib/xml.factor
index 94fb3c371e..ceefd67475 100644
--- a/contrib/xml.factor
+++ b/contrib/xml.factor
@@ -383,7 +383,8 @@ M: comment (xml>string)
 : text ( string -- )
     chars>entities push-datum ;
 
-: tag ( string hashtable quote -- )
+: tag ( string attr-quot contents-quot -- )
+    >r swap >r make-hash r> swap r> 
     -rot dupd <opener> process
     slip
     <closer> process ; inline