Diff for /gforth/Attic/kernel.fs between versions 1.20 and 1.21

version 1.20, 1997/03/21 12:21:13 version 1.21, 1997/03/25 23:27:13
Line 1265  DEFER DOERROR Line 1265  DEFER DOERROR
 ;  ;
   
 : (DoError) ( throw-code -- )  : (DoError) ( throw-code -- )
   [ has-os [IF] ] stderr to outfile-id [ [THEN] ]     [ has-os [IF] ] outfile-id >r  stderr to outfile-id [ [THEN] ] 
   sourceline# IF    sourceline# IF
                source >in @ sourceline# 0 0 .error-frame                 source >in @ sourceline# 0 0 .error-frame
   THEN    THEN
Line 1288  DEFER DOERROR Line 1288  DEFER DOERROR
      .error       .error
   THEN    THEN
   normal-dp dpp !    normal-dp dpp !
   [ has-os [IF] ] stdout to outfile-id [ [THEN] ]     [ has-os [IF] ] r> to outfile-id [ [THEN] ] 
 ;  ;
   
 ' (DoError) IS DoError  ' (DoError) IS DoError

Removed from v.1.20  
changed lines
  Added in v.1.21


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