 : def-for-html-word-<foo ( name -- )
     #! Return the name and code for the <foo patterned
     #! word.
-    <foo dup [ write-html ] curry
+    <foo dup '[ , write-html ]
     (( -- )) html-word ;
 
 : foo> ( str -- foo> ) ">" append ;


: define-attribute-word ( name -- )
    dup "=" prepend swap
    [ write-attr ] curry (( string -- )) html-word ;

! Define some closed HTML tags
[

: def-for-html-word-<foo> ( name -- )
    #! Return the name and code for the <foo> patterned
    #! word.
    dup <foo> swap '[ , <foo> write-html ]
    (( -- )) html-word ;

: <foo ( str -- <str ) "<" prepend ;
