version 1.65, 2001/01/23 10:05:36
|
version 1.66, 2001/01/23 14:41:54
|
Line 484 Defer interpreter-notfound ( c-addr coun
|
Line 484 Defer interpreter-notfound ( c-addr coun
|
' no.extensions IS compiler-notfound |
' no.extensions IS compiler-notfound |
' no.extensions IS interpreter-notfound |
' no.extensions IS interpreter-notfound |
|
|
: interpret ( ?? -- ?? ) \ gforth |
: interpret1 ( ... -- ... ) |
\ interpret/compile the (rest of the) input buffer |
|
[ has? backtrace [IF] ] |
[ has? backtrace [IF] ] |
backtrace-rp0 @ >r |
|
rp@ backtrace-rp0 ! |
rp@ backtrace-rp0 ! |
[ [THEN] ] |
[ [THEN] ] |
BEGIN |
BEGIN |
Line 495 Defer interpreter-notfound ( c-addr coun
|
Line 493 Defer interpreter-notfound ( c-addr coun
|
WHILE |
WHILE |
parser |
parser |
REPEAT |
REPEAT |
2drop |
2drop ; |
|
|
|
: interpret ( ?? -- ?? ) \ gforth |
|
\ interpret/compile the (rest of the) input buffer |
[ has? backtrace [IF] ] |
[ has? backtrace [IF] ] |
r> backtrace-rp0 ! |
backtrace-rp0 @ >r |
[ [THEN] ] |
[ [THEN] ] |
; |
['] interpret1 catch |
|
[ has? backtrace [IF] ] |
|
r> backtrace-rp0 ! |
|
[ [THEN] ] |
|
throw ; |
|
|
\ interpreter 30apr92py |
\ interpreter 30apr92py |
|
|