version 1.12, 1997/06/06 17:27:54
|
version 1.17, 1998/12/08 22:02:39
|
Line 1
|
Line 1
|
\ environmental queries |
\ environmental queries |
|
|
\ Copyright (C) 1995 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 29 Create environment-wordlist wordlist dr
|
Line 29 Create environment-wordlist wordlist dr
|
false |
false |
endif ; |
endif ; |
|
|
|
: e? name environment? 0= ABORT" environmental dependency not existing" ; |
|
|
|
: has? name environment? 0= IF false THEN ; |
|
|
|
: $has? environment? 0= IF false THEN ; |
|
|
environment-wordlist set-current |
environment-wordlist set-current |
get-order environment-wordlist swap 1+ set-order |
get-order environment-wordlist swap 1+ set-order |
|
|