Diff for /gforth/Attic/kernal.fs between versions 1.5 and 1.6

version 1.5, 1994/05/07 14:55:58 version 1.6, 1994/05/18 17:29:55
Line 254  hex Line 254  hex
   handler @ >r    handler @ >r
   rp@ handler !    rp@ handler !
   execute    execute
   r> handler ! rdrop rdrop 0 ;    r> handler ! rdrop rdrop rdrop 0 ;
   
 : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error )  : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error )
   ?DUP IF    ?DUP IF
     handler @ rp!      handler @ rp!
Line 263  hex Line 264  hex
     r> fp!      r> fp!
     r> swap >r sp! r>      r> swap >r sp! r>
   THEN ;    THEN ;
   
 \ Bouncing is very fine,  \ Bouncing is very fine,
 \ programming without wasting time...   jaw  \ programming without wasting time...   jaw
 : bounce ( y1 .. ym error/0 -- y1 .. ym error / y1 .. ym )  : bounce ( y1 .. ym error/0 -- y1 .. ym error / y1 .. ym )
Line 779  create nl$ 1 c, A c, 0 c, \ gnu includes Line 781  create nl$ 1 c, A c, 0 c, \ gnu includes
   
 \ INCLUDE                                               9may93jaw  \ INCLUDE                                               9may93jaw
   
 : include  : include  ( "file" -- )
         bl word count included ;    bl word count included ;
   
 \ RECURSE                                               17may93jaw  \ RECURSE                                               17may93jaw
   

Removed from v.1.5  
changed lines
  Added in v.1.6


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