![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to debug.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to debug.fs CVS log | Up to [gforth] / gforth |
| version 1.4, 1995/11/07 18:06:35 | version 1.5, 1996/08/26 10:07:18 |
|---|---|
| Line 224 VARIABLE Body | Line 224 VARIABLE Body |
| : NestXT ( xt -- true | body false ) | : NestXT ( xt -- true | body false ) |
| DebugMode c-pass ! C-Output off | DebugMode c-pass ! C-Output off |
| xtc C-Output on | xt-see C-Output on |
| c-pass @ DebugMode = dup | c-pass @ DebugMode = dup |
| IF ." Cannot debug" cr | IF ." Cannot debug" cr |
| THEN ; | THEN ; |