gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.139, 2006/02/26 17:23:47	version 1.140, 2006/02/26 20:16:10
Line 243 const Create bases 0A , 10 , 2 , 0	Line 243 const Create bases 0A , 10 , 2 , 0

has? ec [IF]	has? ec [IF]
AVariable forth-wordlist	AVariable forth-wordlist
AVariable context forth-wordlist context !	AVariable current forth-wordlist current !
AVariable current forth-wordlist context !	' current alias context
\| ' (f83find) alias (search-wordlist) ( addr len wid -- nt / false )	\| ' (f83find) alias (search-wordlist) ( addr len wid -- nt / false )
: find-name ( c-addr u -- nt \| 0 ) \ gforth	: find-name ( c-addr u -- nt \| 0 ) \ gforth
\g Find the name @i{c-addr u} in the current search	\g Find the name @i{c-addr u} in the current search
Line 622 Defer parser1 ( c-addr u -- ... xt)	Line 622 Defer parser1 ( c-addr u -- ... xt)

has? ec [IF]	has? ec [IF]
' (name) Alias parse-name	' (name) Alias parse-name
: no.extensions 2drop -13 throw ;	: no.extensions 2drop -&13 throw ;
' no.extensions Alias compiler-notfound1	' no.extensions Alias compiler-notfound1
' no.extensions Alias interpreter-notfound1	' no.extensions Alias interpreter-notfound1
[ELSE]	[ELSE]