Help-lint edit for furnace.utilities

db4
Daniel Ehrenberg 2009-02-08 21:17:59 -06:00
parent 7a8a48bdab
commit c3f5dc2e96
1 changed files with 2 additions and 2 deletions

View File

@ -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 [