version 1.89, 2002/01/05 20:16:17
|
version 1.90, 2002/01/05 22:58:59
|
Line 2427 does-exec ( #a_cfa -- R:nest a_pfa ) new
|
Line 2427 does-exec ( #a_cfa -- R:nest a_pfa ) new
|
a_pfa = PFA(a_cfa); |
a_pfa = PFA(a_cfa); |
nest = (Cell)ip; |
nest = (Cell)ip; |
IF_spTOS(spTOS = sp[0]); |
IF_spTOS(spTOS = sp[0]); |
SUPER_END; |
#ifdef DEBUG |
|
{ |
|
CFA_TO_NAME(a_cfa); |
|
fprintf(stderr,"%08lx: does %08lx %.*s\n", |
|
(Cell)ip,(Cell)a_cfa,len,name); |
|
} |
|
#endif |
SET_IP(DOES_CODE1(a_cfa)); |
SET_IP(DOES_CODE1(a_cfa)); |
SUPER_END; |
|
|
|
include(peeprules.vmg) |
include(peeprules.vmg) |
|
|