![[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.24, 1999/03/08 21:36:08 | version 1.25, 1999/03/09 17:19:40 |
|---|---|
| Line 616 Defer dobacktrace ( -- ) | Line 616 Defer dobacktrace ( -- ) |
| cell +LOOP | cell +LOOP |
| .error-frame | .error-frame |
| LOOP | LOOP |
| cr ." Error: " .error-string | |
| dobacktrace | dobacktrace |
| normal-dp dpp ! ; | normal-dp dpp ! ; |