<counter-app> ( -- responder )

Vocabulary

webapps.counter

Inputs

None

Outputs

responder

an object

Definition

USING: http.server.dispatchers math ;

IN: webapps.counter

: <counter-app> ( -- responder )
    counter-app new-dispatcher
    [ 1 + ] <counter-action> "inc" add-responder
    [ 1 - ] <counter-action> "dec" add-responder
    <display-action> "" add-responder ;