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") |