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 ] curry ]
[ [ [ drop ] ] dip [ drop-inputs t ] curry compose ] bi
recover ; inline