local ( reader quot -- reader' )


Vocabulary
monads

Inputs
readeran object
quotan object


Outputs
reader'an object


Definition
USING: kernel ;

IN: monads

: local ( reader quot -- reader' )
swap [ mcall ] curry compose <reader> ;