Diff for /gforth/Attic/kernel.fs between versions 1.18 and 1.24

version 1.18, 1997/03/19 18:27:16 version 1.24, 1997/04/10 21:32:08
Line 69  NIL AConstant NIL \ gforth Line 69  NIL AConstant NIL \ gforth
 \ Aliases  \ Aliases
   
 ' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch  ' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch
 \ copy w from the return stack to the data stack  \G copy w from the return stack to the data stack
   
 \ Bit string manipulation                              06oct92py  \ Bit string manipulation                              06oct92py
   
Line 1038  G -1 warnings T ! Line 1038  G -1 warnings T !
 0C constant #ff ( -- c ) \ gforth  0C constant #ff ( -- c ) \ gforth
 0A constant #lf ( -- c ) \ gforth  0A constant #lf ( -- c ) \ gforth
   
 : bell  #bell emit ;  : bell ( -- ) \ gforth
       \g makes a beep and flushes the output buffer
       #bell emit
       outfile-id flush-file drop ;
 : cr ( -- ) \ core  : cr ( -- ) \ core
     \ emit a newline      \ emit a newline
     #lf ( sic! ) emit ;      #lf ( sic! ) emit ;
Line 1262  DEFER DOERROR Line 1265  DEFER DOERROR
 ;  ;
   
 : (DoError) ( throw-code -- )  : (DoError) ( throw-code -- )
     [ 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 1283  DEFER DOERROR Line 1290  DEFER DOERROR
   ELSE    ELSE
      .error       .error
   THEN    THEN
   normal-dp dpp ! ;    normal-dp dpp !
     [ has-os [IF] ] r> to outfile-id [ [THEN] ] 
   ;
   
 ' (DoError) IS DoError  ' (DoError) IS DoError
   
Line 1314  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.18  
changed lines
  Added in v.1.24


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