using make-hash for attributes

2005-09-27 23:52:30 +00:00 · 2005-09-27 23:52:30 +00:00 · 66944ac98b
parent 1aaf20a4bf
commit 66944ac98b
1 changed files with 2 additions and 1 deletions
--- 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