IN: scratchpad USE: combinators USE: compiler USE: errors USE: logic USE: math USE: stack USE: test : bail-out call + ; [ f ] [ [ \ bail-out compile ] [ not ] catch ] unit-test [ f ] [ [ \ bail-out compile ] [ not ] catch ] unit-test [ 4 ] [ [ 2 2 ] bail-out ] unit-test