[gforth] / gforth / other.fs  

gforth: gforth/other.fs

Diff for /gforth/other.fs between version 1.1 and 1.2

version 1.1, Fri Feb 11 16:30:46 1994 UTC version 1.2, Thu Jul 21 10:52:47 1994 UTC
Line 10 
Line 10 
   dup count chars bounds    dup count chars bounds
   ?DO  I c@ [char] a [char] { within    ?DO  I c@ [char] a [char] { within
        IF  I c@ bl - I c!  THEN  1 chars +LOOP ;         IF  I c@ bl - I c!  THEN  1 chars +LOOP ;
 : name bl word capitalize ;  : 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.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help