gforth/environ.fs - diff

Return to environ.fs CVS log

Up to [gforth] / gforth

version 1.15, 1997/09/13 12:04:55	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 31 Create environment-wordlist wordlist dr	Line 31 Create environment-wordlist wordlist dr

: e? name environment? 0= ABORT" environmental dependency not existing" ;	: e? name environment? 0= ABORT" environmental dependency not existing" ;

: has? name environment? IF ELSE false THEN ;	: has? name environment? 0= IF false THEN ;

: $has? environment? IF ELSE 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