version 1.68, 2011/12/31 15:29:26
|
version 1.69, 2012/09/17 20:10:23
|
Line 284 is throw
|
Line 284 is throw
|
: depth ( -- +n ) \ core depth |
: depth ( -- +n ) \ core depth |
\G @var{+n} is the number of values that were on the data stack before |
\G @var{+n} is the number of values that were on the data stack before |
\G @var{+n} itself was placed on the stack. |
\G @var{+n} itself was placed on the stack. |
sp@ sp0 @ swap - cell / ; |
sp@ sp0 @ swap - cell/ ; |
|
|
: clearstack ( ... -- ) \ gforth clear-stack |
: clearstack ( ... -- ) \ gforth clear-stack |
\G remove and discard all/any items from the data stack. |
\G remove and discard all/any items from the data stack. |