gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

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