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