version 1.2, 1994/07/27 13:37:01
|
version 1.3, 1994/11/17 15:53:11
|
Line 1
|
Line 1
|
\ environmental queries |
\ environmental queries |
|
|
wordlist constant environment-wordlist |
\ wordlist constant environment-wordlist |
|
|
|
Create environment-wordlist wordlist drop |
|
|
: environment? ( c-addr u -- false / ... true ) |
: environment? ( c-addr u -- false / ... true ) |
environment-wordlist search-wordlist if |
environment-wordlist search-wordlist if |
Line 31 true constant CORE
|
Line 33 true constant CORE
|
-1 MAX-N 2constant MAX-D |
-1 MAX-N 2constant MAX-D |
-1. 2constant MAX-UD |
-1. 2constant MAX-UD |
|
|
|
0 0 2constant gforth \ minor mayor version |
|
|
\ !! RETURN-STACK-CELLS |
\ !! RETURN-STACK-CELLS |
\ !! STACK-CELLS |
\ !! STACK-CELLS |
|
|