[gforth] / gforth / Attic / kernal.fs  

gforth: gforth/Attic/kernal.fs

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

version 1.5, Sat May 7 14:55:58 1994 UTC version 1.6, Wed May 18 17:29:55 1994 UTC
Line 254 
Line 254 
   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 
Line 264 
     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 
Line 781 
   
 \ INCLUDE                                               9may93jaw  \ INCLUDE                                               9may93jaw
   
 : include  : include  ( "file" -- )
         bl word count included ;          bl word count included ;
   
 \ RECURSE                                               17may93jaw  \ RECURSE                                               17may93jaw

Generate output suitable for use with a patch program
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help