HTML tags fix

2005-08-29 05:40:05 +00:00 · 2005-08-29 05:40:05 +00:00 · cd6c8d7ecd
parent 1416c8c18d
commit cd6c8d7ecd
1 changed files with 1 additions and 1 deletions
--- a/library/httpd/html-tags.factor
+++ b/library/httpd/html-tags.factor
@ -77,7 +77,7 @@ USE: sequences
 : attrs>string ( alist -- string )
    #! Convert the attrs alist to a string
    #! suitable for embedding in an html tag.
-    [ [ dup car % "='" % cdr % "'" % ] "" make ] map " " join ;
+    [ [ " " % dup car % "='" % cdr % "'" % ] each ] "" make ;

 : write-attributes ( n: namespace -- )    
    #! With the attribute namespace on the stack, get the attributes