[gforth] / gforth / colorize.fs  

gforth: gforth/colorize.fs

Diff for /gforth/colorize.fs between version 1.2 and 1.3

version 1.2, Tue Nov 7 18:06:34 1995 UTC version 1.3, Sun Jan 7 17:22:08 1996 UTC
Line 45 
Line 45 
 <A Green >f bold A>     Com# CT!  <A Green >f bold A>     Com# CT!
 <A Red >b A>            Hig# CT!  <A Red >b A>            Hig# CT!
   
 : (.name) ( lfa -- )  : (.name) ( nfa -- )
         cell+ dup          dup wordinfo cells ct + @ attr!
         wordinfo cells ct + @ attr!          .name blackspace ;
         count $1f and type blackspace ;  
   
 : .name (.name) ct @ attr! ;  : .name (.name) ct @ attr! ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help