Updating code for make and fry changes

[factor.git] / basis / html / forms / forms.factor

diff --git a/basis/html/forms/forms.factor b/basis/html/forms/forms.factor
index 34d6a4dcb2dac4f0ef618dcbd8d43b0d709a843e..7dd4b6146bee69be4bef25d24343641d3f4e0752 100644 (file)
--- a/basis/html/forms/forms.factor
+++ b/basis/html/forms/forms.factor
@@ -63,7 +63,7 @@ SYMBOL: nested-forms
 
 : with-form ( name quot -- )
     '[
-        ,
+        _
         [ nested-forms [ swap prefix ] change ]
         [ value form set ]
         bi
@@ -103,4 +103,4 @@ C: <validation-error> validation-error
     swap set-value ;
 
 : validate-values ( assoc validators -- assoc' )
-    swap '[ [ dup , at ] dip validate-value ] assoc-each ;
+    swap '[ [ dup _ at ] dip validate-value ] assoc-each ;