( envir day 30.05.2001)

needs wordlist vocs

wordlist constant envlist

current @
also envlist context !
definitions
decimal

255 constant /COUNTED-STRING
255 constant /HOLD
255 constant /PAD
8   constant ADDRESS-UNIT-BITS
-1  constant CORE
-1  constant CORE-EXT
0   constant FLOORED
255 constant MAX-CHAR

hex 7fffffffffffffff. decimal
2constant MAX-D

hex 7fffffff decimal
constant MAX-N

hex ffffffff decimal
constant MAX-U

hex ffffffff ffffffff decimal
2constant MAX-UD

1024 constant RETURN-STACK-CELLS
1024 constant STACK-CELLS

-1 constant EXCEPTION
-1 constant EXCEPTION-EXT
-1 constant FILE
-1 constant MEMORY-ALLOC
-1 constant SEARCH-ORDER
-1 constant SEARCH-ORDER-EXT

-1 constant FLOATING
 0 constant FLOATING-STACK
16 constant WORDLISTS

previous current !

: environment? 
 ( c-addr u -- false | i*x true )
  envlist search-wordlist dup
  if drop execute -1 then
;
