Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.153, 2006/10/08 11:30:56 | version 1.154, 2006/10/11 19:18:52 |
---|---|
Line 665 has? backtrace [IF] | Line 665 has? backtrace [IF] |
backtrace-rp0 @ >r | backtrace-rp0 @ >r |
['] interpret1 catch | ['] interpret1 catch |
r> backtrace-rp0 ! | r> backtrace-rp0 ! |
rethrow ; | throw ; |
[ELSE] | [ELSE] |
: interpret ( ... -- ... ) | : interpret ( ... -- ... ) |
BEGIN | BEGIN |