\ ----- environment?

WORDLIST CONSTANT ENVIRONMENT?-WORDS

ENVIRONMENT?-WORDS SET-CURRENT

                255  CONSTANT /COUNTED-STRING
                 68  CONSTANT /HOLD
                256  CONSTANT /PAD
                  8  CONSTANT ADDRESS-UNITS-BITS
               TRUE  CONSTANT BLOCK
               TRUE  CONSTANT BLOCK-EXT
               TRUE  CONSTANT CORE
               TRUE  CONSTANT CORE-EXT
               TRUE  CONSTANT DOUBLE
               TRUE  CONSTANT DOUBLE-EXT
               TRUE  CONSTANT EXCEPTION
               TRUE  CONSTANT EXCEPTION-EXT
              FALSE  CONSTANT FLOORED
                255  CONSTANT MAX-CHAR
$FFFFFFFF $7FFFFFFF 2CONSTANT MAX-D
          $7FFFFFFF  CONSTANT MAX-N
          $FFFFFFFF  CONSTANT MAX-U
$FFFFFFFF $FFFFFFFF 2CONSTANT MAX-UD
                512  CONSTANT RETURN-STACK-CELLS
               TRUE  CONSTANT SEARCH-ORDER
               TRUE  CONSTANT SEARCH-ORDER-EXT
               1024  CONSTANT STACK-CELLS
               TRUE  CONSTANT STRING
               TRUE  CONSTANT STRING-EXT
                 32  CONSTANT WORDLISTS             \ set a limit

FORTH-WORDLIST SET-CURRENT

: ENVIRONMENT? ( c-addr u -- false | value true )
   ENVIRONMENT?-WORDS SEARCH-WORDLIST    \ search for the string
   IF 
      EXECUTE TRUE                       \ ... and execute the word
   ELSE
      FALSE
   THEN
;

