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

version 1.164, 2007/02/18 18:30:51 version 1.165, 2007/02/23 22:33:21
Line 138  $12340000 immarg ! Line 138  $12340000 immarg !
     over - type cr      over - type cr
     line-start @ rawinput @ over - typewhite ." ^" cr ;      line-start @ rawinput @ over - typewhite ." ^" cr ;
   
   : print-error { addr u -- }
       filename 2@ type ." :" line @ 0 .r ." : " addr u type cr
       print-error-line ;
   
 : ?print-error { f addr u -- }  : ?print-error { f addr u -- }
     f ?not? if      f ?not? if
         stderr >outfile          addr u ['] print-error stderr outfile-execute
         filename 2@ type ." :" line @ 0 .r ." : " addr u type cr  
         print-error-line  
         outfile<  
         1 (bye) \ abort          1 (bye) \ abort
     endif ;      endif ;
   

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


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