Move make to its own vocabulary, remove fry _ feature

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

diff --git a/basis/html/forms/forms.factor b/basis/html/forms/forms.factor
index 911e545f87330b346e46629d0e990df80643595c..34d6a4dcb2dac4f0ef618dcbd8d43b0d709a843e 100644 (file)
--- a/basis/html/forms/forms.factor
+++ b/basis/html/forms/forms.factor
@@ -103,4 +103,4 @@ C: <validation-error> validation-error
     swap set-value ;
 
 : validate-values ( assoc validators -- assoc' )
-    swap '[ dup , at _ validate-value ] assoc-each ;
+    swap '[ [ dup , at ] dip validate-value ] assoc-each ;