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

version 1.163, 2006/12/31 13:39:13 version 1.164, 2007/02/18 18:30:51
Line 140  $12340000 immarg ! Line 140  $12340000 immarg !
   
 : ?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          outfile<
             0  
         recover endtry  
         r> to outfile-id throw  
         1 (bye) \ abort          1 (bye) \ abort
     endif ;      endif ;
   

Removed from v.1.163  
changed lines
  Added in v.1.164


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>