run-st ( state initial -- value )

Vocabulary

monads

Inputs

state	an object
initial	an object

Outputs

value

an object

Definition

USING: kernel sequences ;

IN: monads

: run-st ( state initial -- value ) swap mcall second ;