From c3f5dc2e96d52cdc4e361f08ae201540365ce5b2 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sun, 8 Feb 2009 21:17:59 -0600 Subject: [PATCH] Help-lint edit for furnace.utilities --- basis/furnace/utilities/utilities.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor index 2f998e039a..4fc68f7735 100755 --- a/basis/furnace/utilities/utilities.factor +++ b/basis/furnace/utilities/utilities.factor @@ -79,10 +79,10 @@ M: object link-attr 2drop ; GENERIC: modify-form ( responder -- xml/f ) -M: object modify-form f ; +M: object modify-form drop f ; : form-modifications ( -- xml ) - [ [ modify-form [ , ] when ] each-responder ] { } make ; + [ [ modify-form [ , ] when* ] each-responder ] { } make ; : hidden-form-field ( value name -- xml ) over [