Diff for /gforth/environ.fs between versions 1.26 and 1.28

version 1.26, 2000/11/29 19:43:07 version 1.28, 2002/01/17 12:02:55
Line 41  vocabulary environment ( -- ) \ gforth Line 41  vocabulary environment ( -- ) \ gforth
   
 : e? name environment? 0= ABORT" environmental dependency not existing" ;  : e? name environment? 0= ABORT" environmental dependency not existing" ;
   
 : has? name environment? 0= IF false THEN ;  
   
 : $has? environment? 0= IF false THEN ;  : $has? environment? 0= IF false THEN ;
   
   : has? name $has? ;
   
 environment-wordlist set-current  environment-wordlist set-current
 get-order environment-wordlist swap 1+ set-order  get-order environment-wordlist swap 1+ set-order
   
Line 107  version-string 2constant gforth ( -- c-a Line 107  version-string 2constant gforth ( -- c-a
     [ forthstart 5 cells + ] literal @      [ forthstart 5 cells + ] literal @
     [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;      [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;
   
 \ !! max-float  
 15 constant #locals \ 1000 64 /  15 constant #locals \ 1000 64 /
     \ One local can take up to 64 bytes, the size of locals-buffer is 1000      \ One local can take up to 64 bytes, the size of locals-buffer is 1000
 maxvp constant wordlists  maxvp constant wordlists

Removed from v.1.26  
changed lines
  Added in v.1.28


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>