pass ( writer -- writer' )

Vocabulary

monads

Inputs

writer

an object

Outputs

writer'

an object

Definition

USING: combinators kernel sequences ;

IN: monads

: pass ( writer -- writer' )
    run-writer [ first2 ] dip swap ( x -- y ) call-effect
    <writer> ;