environment?

 get environment

Stackeffects

( addr len -- [ 0 ] | [i*x -1 )
R( -- )


: environment?

   environment    search-wordlist    dup 

 (?branch) PFA_ENVIRONMENTQ1

   >r    execute    r> 

PFA_ENVIRONMENTQ1:



;