version 1.27, 2007/12/31 18:40:26
|
version 1.28, 2011/08/10 12:16:09
|
Line 27 hex
|
Line 27 hex
|
|
|
\ .S CORE / CORE EXT 9may93jaw |
\ .S CORE / CORE EXT 9may93jaw |
|
|
|
|
|
defer .s. |
|
' . is .s. |
|
|
variable maxdepth-.s ( -- addr ) \ gforth maxdepth-dot-s |
variable maxdepth-.s ( -- addr ) \ gforth maxdepth-dot-s |
\G A variable containing 9 by default. @code{.s} and @code{f.s} |
\G A variable containing 9 by default. @code{.s} and @code{f.s} |
\G display at most that many stack items. |
\G display at most that many stack items. |
Line 40 variable maxdepth-.s ( -- addr ) \ gfort
|
Line 44 variable maxdepth-.s ( -- addr ) \ gfort
|
depth 0 max maxdepth-.s @ min |
depth 0 max maxdepth-.s @ min |
dup 0 |
dup 0 |
?do |
?do |
dup i - pick . |
dup i - pick .s. |
loop |
loop |
drop ; |
drop ; |
|
|