throws? ( quot -- ? )


Vocabulary
sequences.extras

Inputs
quotan object


Outputs
?an object


Definition
USING: combinators.smart continuations kernel ;

IN: sequences.extras

: throws? ( quot -- ? )
[ '[ _ drop-outputs f ] ] [ '[ drop _ drop-inputs t ] ] bi
recover ; inline