![[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.3, 2000/09/23 15:46:55 | version 1.4, 2002/09/24 17:57:28 |
|---|---|
| Line 36 Defer store-backtrace | Line 36 Defer store-backtrace |
| : (try) ( -- ) | : (try) ( -- ) |
| \ inline argument: address of the handler | \ inline argument: address of the handler |
| r> | r> |
| dup dup @ + >r \ recovery address | dup @ >r \ recovery address |
| rp@ 'catch >r | rp@ 'catch >r |
| sp@ >r | sp@ >r |
| fp@ >r | fp@ >r |