version 1.139, 2003/08/20 09:23:45
|
version 1.140, 2003/08/20 13:29:19
|
Line 141 undefine(`index')
|
Line 141 undefine(`index')
|
undefine(`shift') |
undefine(`shift') |
undefine(`symbols') |
undefine(`symbols') |
|
|
|
\F 0 [if] |
|
|
\ run-time routines for non-primitives. They are defined as |
\ run-time routines for non-primitives. They are defined as |
\ primitives, because that simplifies things. |
\ primitives, because that simplifies things. |
|
|
Line 180 SET_IP(DOES_CODE1(CFA));
|
Line 182 SET_IP(DOES_CODE1(CFA));
|
""just a slot to have an encoding for the DOESJUMP, |
""just a slot to have an encoding for the DOESJUMP, |
which is no longer used anyway (!! eliminate this)"" |
which is no longer used anyway (!! eliminate this)"" |
|
|
|
\F [endif] |
|
|
\g control |
\g control |
|
|
noop ( -- ) gforth |
noop ( -- ) gforth |