[gforth] / gforth / smartdots.fs  

gforth: gforth/smartdots.fs

Diff for /gforth/smartdots.fs between version 1.6 and 1.7

version 1.6, Tue Mar 27 23:02:01 2012 UTC version 1.7, Tue Mar 27 23:06:42 2012 UTC
Line 28 
Line 28 
   
 : .string. ( addr u -- )  : .string. ( addr u -- )
     .\" s\" " type '"' emit space ;      .\" s\" " type '"' emit space ;
 : .addr. ( addr -- )  hex. ;  : .addr. ( addr -- )
       dup >name dup IF  ." ' " .name drop  ELSE  drop hex.  THEN ;
   
 Variable smart.s-skip  Variable smart.s-skip
   


Generate output suitable for use with a patch program
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help