7 lines
245 B
Forth
7 lines
245 B
Forth
: iwillThrowAnException "A new exception" Exception throw ;
|
|
|
|
: iwillCatch
|
|
| e |
|
|
try: e [ iwillThrowAnException ] when: [ "Exception catched :" . e .cr ]
|
|
try: e [ 1 2 over last ] when: [ "Exception catched :" . e .cr ]
|
|
"Done" println ;
|