version 1.10, 1999/02/24 11:05:16
|
version 1.11, 1999/03/23 20:24:17
|
Line 140 VARIABLE Unnest
|
Line 140 VARIABLE Unnest
|
THEN |
THEN |
AGAIN ; |
AGAIN ; |
|
|
: dbg ' NestXT IF EXIT THEN (debug) Leave-D ; |
: dbg \ gforth |
|
' NestXT IF EXIT THEN (debug) Leave-D ; |
|
|
: break: |
: break: \ gforth |
r> ['] (debug) >body >r ; |
r> ['] (debug) >body >r ; |
|
|
: (break") |
: (break") |
cr |
cr |
." BREAK AT: " type cr |
." BREAK AT: " type cr |
r> ['] (debug) >body >r ; |
r> ['] (debug) >body >r ; |
|
|
: break" |
: break" \ gforth |
postpone s" |
postpone s" |
postpone (break") ; immediate |
postpone (break") ; immediate |