nasmjf

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 ;