<counter-action> ( quot -- action )


Vocabulary
webapps.counter

Inputs
quotan object


Outputs
actionan object


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

IN: webapps.counter

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