merge-forms ( form -- )

Vocabulary

furnace.actions

Inputs

form

an object

Outputs

None

Definition

USING: accessors assocs html.forms kernel namespaces sequences ;

IN: furnace.actions

: merge-forms ( form -- )
    [ form get ] dip
    [ [ errors>> ] bi@ append! drop ]
    [ [ values>> ] bi@ assoc-union! drop ]
    [ validation-failed>> >>validation-failed drop ] 2tri ;