Return to debug.fs CVS log | Up to [gforth] / gforth |
version 1.22, 2003/03/09 15:16:47 | version 1.23, 2003/03/22 10:04:06 |
---|---|
Line 183 VARIABLE Unnest | Line 183 VARIABLE Unnest |
' NestXT IF EXIT THEN (debug) Leave-D ; | ' NestXT IF EXIT THEN (debug) Leave-D ; |
: break:, ( -- ) | : break:, ( -- ) |
lastxt postpone literal ; | latestxt postpone literal ; |
: (break:) | : (break:) |
r> ['] (_debug) >body >r ; | r> ['] (_debug) >body >r ; |