Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.151, 2006/05/01 09:45:56 | version 1.152, 2006/05/26 21:18:45 |
---|---|
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 ! |
throw ; | throw>error ; |
[ELSE] | [ELSE] |
: interpret ( ... -- ... ) | : interpret ( ... -- ... ) |
BEGIN | BEGIN |