[gforth] / gforth / source.fs  

gforth: gforth/source.fs

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

version 1.3, Thu Sep 19 22:17:37 1996 UTC version 1.4, Tue Mar 4 17:49:55 1997 UTC
Line 41 
Line 41 
   
 : print-sourcepos ( a-addr -- )  : print-sourcepos ( a-addr -- )
     get-sourcepos      get-sourcepos
     >r type ." :" r> 0 .r ;      >r type ." :"
       base @ decimal r> 0 .r base ! ;

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