[gforth] / gforth / tt.fs  

gforth: gforth/tt.fs

Diff for /gforth/tt.fs between version 1.4 and 1.5

version 1.4, Sun Sep 3 22:29:16 2000 UTC version 1.5, Sat Dec 30 20:06:26 2006 UTC
Line 312 
Line 312 
                 again ;                  again ;
   
 : to-upper      \ char --- char ; convert to upper case  : to-upper      \ char --- char ; convert to upper case
                 dup [char] a >= over [char] z <= and if  bl -  then ;      dup [char] a [char] z 1+ within if
           bl -
       then ;
   
 : interaction   \ --- flag  : interaction   \ --- flag
                 case  key to-upper                  case  key to-upper

Generate output suitable for use with a patch program
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help