test_exception.f

   1 ( -*- text -*- )
   2
   3 : TEST4 PRINT-STACK-TRACE THROW ;
   4
   5 : TEST3 0 TEST4 26 TEST4 ;
   6
   7 : TEST2
   8         ['] TEST3 CATCH
   9         ?DUP IF ." TEST3 threw exception " . CR THEN
  10         TEST3
  11 ;
  12
  13 : TEST TEST2 ;