version 1.170, 2009/09/05 17:51:48
|
version 1.171, 2009/09/06 22:43:23
|
Line 325 forth-wordlist current !
|
Line 325 forth-wordlist current !
|
\g Find the name @i{c-addr u} in the current search |
\g Find the name @i{c-addr u} in the current search |
\g order. Return its @i{nt}, if found, otherwise 0. |
\g order. Return its @i{nt}, if found, otherwise 0. |
lookup @ (search-wordlist) ; |
lookup @ (search-wordlist) ; |
|
|
: find-name-run-prelude ( c-addr u -- nt | 0 ) |
|
\ Like find-name, but also run the prelude (if present). This is |
|
\ used in the text interpreter and similar stuff. |
|
find-name dup if |
|
dup name>prelude execute |
|
then ; |
|
[THEN] |
[THEN] |
|
|
\ \ header, finding, ticks 17dec92py |
\ \ header, finding, ticks 17dec92py |
Line 715 has? backtrace [IF]
|
Line 708 has? backtrace [IF]
|
|
|
\ interpreter 30apr92py |
\ interpreter 30apr92py |
|
|
|
: run-prelude ( nt|0 -- nt|0 ) |
|
\ run the prelude of the name identified by nt (if present). This |
|
\ is used in the text interpreter and similar stuff. |
|
dup if |
|
dup name>prelude execute |
|
then ; |
|
|
\ not the most efficient implementations of interpreter and compiler |
\ not the most efficient implementations of interpreter and compiler |
: interpreter1 ( c-addr u -- ... xt ) |
: interpreter1 ( c-addr u -- ... xt ) |
2dup find-name-run-prelude dup |
2dup find-name run-prelude dup |
if |
if |
nip nip name>int |
nip nip name>int |
else |
else |