[gforth] / gforth / other.fs  

gforth: gforth/other.fs

Diff for /gforth/other.fs between version 1.3 and 1.4

version 1.3, Tue Nov 7 18:06:55 1995 UTC version 1.4, Wed Jul 8 19:55:03 1998 UTC
Line 25 
Line 25 
   
 : ?EXIT    s" IF EXIT THEN" evaluate ; immediate  : ?EXIT    s" IF EXIT THEN" evaluate ; immediate
 : bounds   over + swap ;  : bounds   over + swap ;
 : capitalize ( addr -- addr )  : name bl word ;
   dup count chars bounds  
   ?DO  I c@ [char] a [char] { within  
        IF  I c@ bl - I c!  THEN  1 chars +LOOP ;  
 : name bl word ( capitalize ) ;  
 : on true swap ! ;  : on true swap ! ;
 : off false swap ! ;  : off false swap ! ;
 : place ( adr len adr )  : place ( adr len adr )

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help