version 1.5, 2001/02/27 21:17:10
|
version 1.6, 2003/01/04 08:26:57
|
Line 80 IS store-backtrace
|
Line 80 IS store-backtrace
|
: print-bt-entry ( return-stack-item -- ) |
: print-bt-entry ( return-stack-item -- ) |
cell - dup in-dictionary? over dup aligned = and |
cell - dup in-dictionary? over dup aligned = and |
if |
if |
@ dup look |
@ dup threaded>name if |
if |
|
.name drop |
.name drop |
else |
else |
drop body> look \ !! check for "call" in cell before? |
drop dup look if |
if |
.name drop |
.name |
|
else |
else |
drop |
drop body> look \ !! check for "call" in cell before? |
|
if |
|
.name |
|
else |
|
drop |
|
then |
then |
then |
then |
then |
else |
else |