![[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.14, 1999/01/02 14:03:36 | version 1.15, 1999/01/03 21:48:38 |
|---|---|
| Line 522 max-errors 6 * cells allot | Line 522 max-errors 6 * cells allot |
| loop ; | loop ; |
| DEFER DOERROR | DEFER DOERROR |
| Defer dobacktrace ( -- ) | |
| ' noop IS dobacktrace | |
| : .error-frame ( addr1 u1 n1 n2 addr2 u2 -- ) | : .error-frame ( addr1 u1 n1 n2 addr2 u2 -- ) |
| cr error-stack @ | cr error-stack @ |
| Line 568 DEFER DOERROR | Line 570 DEFER DOERROR |
| ELSE | ELSE |
| .error | .error |
| THEN | THEN |
| dobacktrace | |
| normal-dp dpp ! ; | normal-dp dpp ! ; |
| ' (DoError) IS DoError | ' (DoError) IS DoError |