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

version 1.22, 1997/03/27 13:31:02 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 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

Removed from v.1.22  
changed lines
  Added in v.1.24


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