steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

using make-hash for attributes

cvs
Daniel Ehrenberg 2005-09-27 23:52:30 +00:00
parent 1aaf20a4bf
commit 66944ac98b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/xml.factor
View File

@ -383,7 +383,8 @@ M: comment (xml>string)
: text ( string -- ) : text ( string -- )
chars>entities push-datum ; 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 -rot dupd <opener> process
slip slip
<closer> process ; inline <closer> process ; inline