version 1.20, 1999/12/03 18:24:23
|
version 1.21, 2000/08/09 20:04:05
|
Line 71 true constant CORE-EXT ( -- f ) \ enviro
|
Line 71 true constant CORE-EXT ( -- f ) \ enviro
|
\G True if the complete core extension word set is present. Always true for Gforth. |
\G True if the complete core extension word set is present. Always true for Gforth. |
|
|
1 -3 mod 0< constant FLOORED ( -- f ) \ environment |
1 -3 mod 0< constant FLOORED ( -- f ) \ environment |
\G True if division is floored by default. |
\G True if @code{/} etc. perform floored division |
|
|
1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N ( -- n ) \ environment |
1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N ( -- n ) \ environment |
\G Largest usable signed integer. |
\G Largest usable signed integer. |