local ( reader quot -- reader' )

Vocabulary

monads

Inputs

reader	an object
quot	an object

Outputs

reader'

an object

Definition

USING: kernel ;

IN: monads

: local ( reader quot -- reader' )
    swap '[ @ _ mcall ] <reader> ;