gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

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