version 1.2, 1997/06/06 17:28:15
|
version 1.3, 1997/07/06 16:08:57
|
Line 183 has-locals [IF]
|
Line 183 has-locals [IF]
|
handler @ >r |
handler @ >r |
rp@ handler ! |
rp@ handler ! |
execute |
execute |
r> handler ! rdrop rdrop rdrop 0 ; |
r> handler ! rdrop |
|
[ has-floats [IF] ] |
|
rdrop |
|
[ [THEN] ] |
|
[ has-locals [IF] ] |
|
rdrop |
|
[ [THEN] ] |
|
0 ; |
|
|
: 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 |
Line 238 has-locals [IF]
|
Line 245 has-locals [IF]
|
\ ?stack 23feb93py |
\ ?stack 23feb93py |
|
|
: ?stack ( ?? -- ?? ) \ gforth |
: ?stack ( ?? -- ?? ) \ gforth |
sp@ s0 @ u> IF -4 throw THEN |
sp@ sp0 @ u> IF -4 throw THEN |
[ has-floats [IF] ] |
[ has-floats [IF] ] |
fp@ f0 @ u> IF -&45 throw THEN |
fp@ fp0 @ u> IF -&45 throw THEN |
[ [THEN] ] |
[ [THEN] ] |
; |
; |
\ ?stack should be code -- it touches an empty stack! |
\ ?stack should be code -- it touches an empty stack! |
Line 248 has-locals [IF]
|
Line 255 has-locals [IF]
|
\ DEPTH 9may93jaw |
\ DEPTH 9may93jaw |
|
|
: depth ( -- +n ) \ core |
: depth ( -- +n ) \ core |
sp@ s0 @ swap - cell / ; |
sp@ sp0 @ swap - cell / ; |
: clearstack ( ... -- ) |
: clearstack ( ... -- ) |
s0 @ sp! ; |
sp0 @ sp! ; |
|
|
\ Strings 22feb93py |
\ Strings 22feb93py |
|
|