Slight cleanup and fixing unit test

basis/furnace/chloe-tags/chloe-tags.factor

@@ -19,6 +19,7 @@ http
 http.server
 http.server.redirection
 http.server.responses
+io.streams.string
 furnace.utilities ;
 IN: furnace.chloe-tags
 
@@ -80,16 +81,12 @@ CHLOE: a
 CHLOE: base
     compile-a-url [ [XML <base href=<->/> XML] ] [xml-code] ;
 
-USE: io.streams.string
-
 : compile-hidden-form-fields ( for -- )
     '[
-        [
+        _ [ "," split [ hidden render>xml ] map ] [ f ] if*
-            _ [ "," split [ hidden render ] each ] when*
+        nested-forms get " " join f like nested-forms-key hidden-form-field>xml
-            nested-forms get " " join f like nested-forms-key hidden-form-field
+        [ [ modify-form ] each-responder ] with-string-writer <unescaped>
-            [ modify-form ] each-responder
+        [XML <div style="display: none;"><-><-><-></div> XML]
-        ] with-string-writer <unescaped>
-        [XML <div style="display:none;"><-></div> XML]
     ] [code] ;
 
 : (compile-form-attrs) ( method action -- )

basis/furnace/utilities/utilities.factor

@@ -81,11 +81,13 @@ GENERIC: modify-form ( responder -- )
 
 M: object modify-form drop ;
 
-: hidden-form-field ( value name -- )
+: hidden-form-field>xml ( value name -- xml )
     over [
         [XML <input type="hidden" value=<-> name=<->/> XML]
-        write-xml
+    ] [ drop ] if ;
-    ] [ 2drop ] if ;
+
+: hidden-form-field ( value name -- )
+    hidden-form-field>xml write-xml ;
 
 : nested-forms-key "__n" ;
 

basis/html/templates/chloe/chloe-tests.factor

@@ -135,7 +135,7 @@ TUPLE: person first-name last-name ;
 
 [ ] [ H{ { "a" H{ { "b" "c" } } } } values set ] unit-test
 
-[ "<form method='post' action='foo'><div style='display: none;'><input type=\"hidden\" value=\"a\" name=\"__n\"/></div></form>" ] [
+[ "<form method=\"post\" action=\"foo\"><div style=\"display: none;\"><input type=\"hidden\" value=\"a\" name=\"__n\"/></div></form>" ] [
     [
         "test10" test-template call-template
     ] run-template