![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to except.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to except.fs CVS log | Up to [gforth] / gforth |
| version 1.5, 2002/12/05 19:25:23 | version 1.6, 2003/02/17 22:42:09 |
|---|---|
| Line 81 is catch | Line 81 is catch |
| [ here forthstart 9 cells + ! ] | [ here forthstart 9 cells + ! ] |
| store-backtrace | store-backtrace |
| handler @ ?dup-0=-IF | handler @ ?dup-0=-IF |
| cr ." uncaught exception: " .error cr | >stderr cr ." uncaught exception: " .error cr |
| 2 (bye) | 2 (bye) |
| quit | \ quit |
| THEN | THEN |
| rp! | rp! |
| r> handler ! | r> handler ! |