Help-lint edit for furnace.utilities
parent
7a8a48bdab
commit
c3f5dc2e96
|
@ -79,10 +79,10 @@ M: object link-attr 2drop ;
|
||||||
|
|
||||||
GENERIC: modify-form ( responder -- xml/f )
|
GENERIC: modify-form ( responder -- xml/f )
|
||||||
|
|
||||||
M: object modify-form f ;
|
M: object modify-form drop f ;
|
||||||
|
|
||||||
: form-modifications ( -- xml )
|
: form-modifications ( -- xml )
|
||||||
[ [ modify-form [ , ] when ] each-responder ] { } make ;
|
[ [ modify-form [ , ] when* ] each-responder ] { } make ;
|
||||||
|
|
||||||
: hidden-form-field ( value name -- xml )
|
: hidden-form-field ( value name -- xml )
|
||||||
over [
|
over [
|
||||||
|
|
Loading…
Reference in New Issue