<counter-action> ( quot -- action )

Vocabulary

webapps.counter

Inputs

quot

an object

Outputs

action

an object

Definition

USING: accessors furnace.actions furnace.redirection
furnace.sessions kernel urls ;

IN: webapps.counter

: <counter-action> ( quot -- action )
    <action> swap
    '[ count _ schange URL" %24counter-app" <redirect> ]
    >>submit ;