validate-value ( name value quot -- )

Vocabulary

html.forms

Inputs

name	an object
value	an object
quot	an object

Outputs

None

Definition

USING: accessors kernel namespaces ;

IN: html.forms

: validate-value ( name value quot -- )
    validate dup validation-error-state?
    [ form get t >>validation-failed drop ] when swap set-value
    ;