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

version 1.21, 1997/03/25 23:27:13 version 1.23, 1997/03/28 14:06:23
Line 1265  DEFER DOERROR Line 1265  DEFER DOERROR
 ;  ;
   
 : (DoError) ( throw-code -- )  : (DoError) ( throw-code -- )
   [ has-os [IF] ] outfile-id >r  stderr to outfile-id [ [THEN] ]     [ has-os [IF] ]
         outfile-id dup flush-file drop >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 1320  Defer 'cold ( -- ) \ gforth tick-cold Line 1323  Defer 'cold ( -- ) \ gforth tick-cold
 [ [THEN] ]  [ [THEN] ]
     'cold      'cold
 [ has-files [IF] ]  [ has-files [IF] ]
     argc @ 1 >      ['] process-args catch ?dup
     IF      IF
         ['] process-args catch ?dup          dup >r DoError cr r> negate (bye)
         IF      THEN
             dup >r DoError cr r> negate (bye)      argc @ 1 >
         THEN      IF \ there may be some unfinished line, so let's finish it
         cr          cr
     THEN      THEN
 [ [THEN] ]  [ [THEN] ]

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


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