version 1.169, 2009/09/05 17:38:38
|
version 1.170, 2009/09/05 17:51:48
|
Line 329 forth-wordlist current !
|
Line 329 forth-wordlist current !
|
: find-name-run-prelude ( c-addr u -- nt | 0 ) |
: find-name-run-prelude ( c-addr u -- nt | 0 ) |
\ Like find-name, but also run the prelude (if present). This is |
\ Like find-name, but also run the prelude (if present). This is |
\ used in the text interpreter and similar stuff. |
\ used in the text interpreter and similar stuff. |
find-name ; \ dup name>prelude execute ; |
find-name dup if |
|
dup name>prelude execute |
|
then ; |
[THEN] |
[THEN] |
|
|
\ \ header, finding, ticks 17dec92py |
\ \ header, finding, ticks 17dec92py |