![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to basics.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to basics.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.58, 2007/02/23 22:33:21 | version 1.59, 2007/03/18 21:46:17 |
|---|---|
| Line 218 has? glocals [IF] | Line 218 has? glocals [IF] |
| laddr# [ 0 , ] ; | laddr# [ 0 , ] ; |
| [THEN] | [THEN] |
| has? ec [IF] | has? os 0= [IF] |
| : catch ( ... xt -- ... 0 ) | : catch ( ... xt -- ... 0 ) |
| handler @ >r sp@ >r | handler @ >r sp@ >r |
| rp@ handler ! execute 0 r> drop r> handler ! ; | rp@ handler ! execute 0 r> drop r> handler ! ; |