2004-11-03 23:36:24 -05:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: compiler
|
|
|
|
|
USE: errors
|
|
|
|
|
USE: math
|
|
|
|
|
USE: test
|
2004-12-10 19:29:07 -05:00
|
|
|
USE: kernel
|
2004-11-03 23:36:24 -05:00
|
|
|
|
2004-11-03 23:42:48 -05:00
|
|
|
: bail-out call + ;
|
2004-11-03 23:36:24 -05:00
|
|
|
|
2004-11-03 23:42:48 -05:00
|
|
|
[ f ] [ [ \ bail-out compile ] [ not ] catch ] unit-test
|
|
|
|
|
[ f ] [ [ \ bail-out compile ] [ not ] catch ] unit-test
|
2004-11-03 23:36:24 -05:00
|
|
|
|
2004-11-03 23:42:48 -05:00
|
|
|
[ 4 ] [ [ 2 2 ] bail-out ] unit-test
|
