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

version 1.164, 2007/02/18 18:30:51 version 1.166, 2007/02/24 14:45:53
Line 55 Line 55
 \ for backwards compatibility, jaw  \ for backwards compatibility, jaw
 require compat/strcomp.fs  require compat/strcomp.fs
   
   [undefined] outfile-execute [if]
       : outfile-execute ( ... xt file-id -- ... )
           \ unsafe replacement
           outfile-id >r to outfile-id execute r> to outfile-id ;
   [then]
   
 warnings off  warnings off
   
 \ redefinitions of kernel words not present in gforth-0.6.1  \ redefinitions of kernel words not present in gforth-0.6.1
Line 138  $12340000 immarg ! Line 144  $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.166


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