version 1.5, 1996/08/26 10:07:18
|
version 1.6, 1997/05/21 20:39:22
|
Line 276 VARIABLE Unnest
|
Line 276 VARIABLE Unnest
|
Nesting @ 0= ?EXIT |
Nesting @ 0= ?EXIT |
-1 Nesting +! r> |
-1 Nesting +! r> |
ELSE |
ELSE |
IP @ >r 1 Nesting +! |
IP @ 1 cells + >r 1 Nesting +! |
THEN |
THEN |
AGAIN ; |
AGAIN ; |
|
|
: dbg ' NestXT ?EXIT (debug) Leave-D ; |
: dbg ' NestXT ?EXIT (debug) Leave-D ; |
|
|
\ : test 1 2 4 swap dup . ; |
: TRACE: |
|
r> (debug) ; |
|
|
|
: (TRACE") |
|
cr |
|
." BREAK AT: " type cr |
|
r> (debug) ; |
|
|
|
: TRACE" |
|
postpone s" |
|
postpone (TRACE") ; immediate |