Diff for /gforth/prim between versions 1.24 and 1.25

version 1.24, 1999/02/16 06:32:30 version 1.25, 1999/02/21 11:43:12
Line 512  else if (n>0) Line 512  else if (n>0)
  dup 0< IF  drop -1  ELSE  0>  1 and  THEN  ;   dup 0< IF  drop -1  ELSE  0>  1 and  THEN  ;
   
 toupper c1 -- c2        gforth  toupper c1 -- c2        gforth
 ""For a character a-z, convert to the equivalent upper-case  ""If @var{c1} is a lower-case character (in the current locale), @var{c2}
 character. All other characters are unchanged.""  is the equivalent upper-case character. All other characters are unchanged.""
 c2 = toupper(c1);  c2 = toupper(c1);
 :  :
  dup [char] a - [ char z char a - 1 + ] Literal u<  bl and - ;   dup [char] a - [ char z char a - 1 + ] Literal u<  bl and - ;

Removed from v.1.24  
changed lines
  Added in v.1.25


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