Return to kernal.fs CVS log | Up to [gforth] / gforth |
version 1.53, 1996/02/19 19:19:34 | version 1.54, 1996/04/17 16:39:41 |
---|---|
Line 453 hex | Line 453 hex |
: throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception | : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception |
?DUP IF | ?DUP IF |
[ here 4 cells ! ] | [ here 9 cells ! ] |
handler @ rp! | handler @ rp! |
r> handler ! | r> handler ! |
r> lp! | r> lp! |