[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.163 and 1.164

version 1.163, Sun Dec 31 13:39:13 2006 UTC version 1.164, Sun Feb 18 18:30:51 2007 UTC
Line 140 
Line 140 
   
 : ?print-error { f addr u -- }  : ?print-error { f addr u -- }
     f ?not? if      f ?not? if
         outfile-id >r try          stderr >outfile
             stderr to outfile-id  
             filename 2@ type ." :" line @ 0 .r ." : " addr u type cr              filename 2@ type ." :" line @ 0 .r ." : " addr u type cr
             print-error-line              print-error-line
             0          outfile<
         recover endtry  
         r> to outfile-id throw  
         1 (bye) \ abort          1 (bye) \ abort
     endif ;      endif ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help