5 lines
123 B
Forth
5 lines
123 B
Forth
|
: report ( n -- ) ?dup if ." caught " . else ." no throw" then ;
|
||
|
|
: test ( -- )
|
||
|
|
['] f catch report
|
||
|
|
['] g catch report ;
|