(must-not-fail) ( quot -- error/f failed? tested? )


Vocabulary
tools.test.private

Inputs
quotan object


Outputs
error/fan object
failed?an object
tested?an object


Definition
USING: continuations kernel ;

IN: tools.test.private

:: (must-not-fail) ( quot -- error/f failed? tested? )
[ { } quot with-datastack drop f f ] [ t ] recover t ;