Diff for /gforth/kernel/basics.fs between versions 1.54 and 1.55

version 1.54, 2006/07/05 12:58:58 version 1.55, 2006/10/08 11:30:56
Line 240  defer throw ( y1 .. ym nerror -- y1 .. y Line 240  defer throw ( y1 .. ym nerror -- y1 .. y
 \G If @i{nerror} is 0, drop it and continue.  Otherwise, transfer  \G If @i{nerror} is 0, drop it and continue.  Otherwise, transfer
 \G control to the next dynamically enclosing exception handler, reset  \G control to the next dynamically enclosing exception handler, reset
 \G the stacks accordingly, and push @i{nerror}.  \G the stacks accordingly, and push @i{nerror}.
 defer throw>error ( y1 .. ym nerror -- y1 .. ym / z1 .. zn error ) \ exception  defer rethrow ( y1 .. ym nerror -- y1 .. ym / z1 .. zn error ) \ exception
 \G If @i{nerror} is 0, drop it and continue.  Otherwise, transfer  \G If @i{nerror} is 0, drop it and continue.  Otherwise, transfer
 \G control to the next dynamically enclosing exception handler, reset  \G control to the next dynamically enclosing exception handler, reset
 \G the stacks accordingly, and push @i{nerror}. Doesn't reset the error stack  \G the stacks accordingly, and push @i{nerror}. Doesn't reset the error stack
Line 253  defer throw>error ( y1 .. ym nerror -- y Line 253  defer throw>error ( y1 .. ym nerror -- y
         [ [ELSE] ] quit [ [THEN] ]          [ [ELSE] ] quit [ [THEN] ]
     then ;      then ;
 dup is throw  dup is throw
 is throw>error  is rethrow
 [THEN]  [THEN]
   
 \ (abort")  \ (abort")

Removed from v.1.54  
changed lines
  Added in v.1.55


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