![[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.6, 1997/05/21 20:39:22 | version 1.7, 1997/06/01 20:50:38 |
|---|---|
| Line 282 VARIABLE Unnest | Line 282 VARIABLE Unnest |
| : dbg ' NestXT ?EXIT (debug) Leave-D ; | : dbg ' NestXT ?EXIT (debug) Leave-D ; |
| : TRACE: | : break: |
| r> (debug) ; | r> ['] (debug) >body >r ; |
| : (TRACE") | : (break") |
| cr | cr |
| ." BREAK AT: " type cr | ." BREAK AT: " type cr |
| r> (debug) ; | r> ['] (debug) >body >r ; |
| : TRACE" | : break" |
| postpone s" | postpone s" |
| postpone (TRACE") ; immediate | postpone (break") ; immediate |