![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.21, 1999/02/20 23:29:49 | version 1.22, 1999/02/21 14:55:44 |
|---|---|
| Line 622 Defer dobacktrace ( -- ) | Line 622 Defer dobacktrace ( -- ) |
| [ [THEN] ] | [ [THEN] ] |
| ['] 'quit CATCH dup | ['] 'quit CATCH dup |
| WHILE | WHILE |
| <# \ reset hold area, or we may get another error | |
| DoError r@ >tib ! r@ tibstack ! | DoError r@ >tib ! r@ tibstack ! |
| REPEAT | REPEAT |
| drop r> >tib ! ; | drop r> >tib ! ; |