gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.47, 2000/05/15 14:04:12	version 1.48, 2000/05/27 09:41:29
Line 364 const Create ??? 0 , 3 c, char ? c, cha	Line 364 const Create ??? 0 , 3 c, char ? c, cha
\ in dubio pro:	\ in dubio pro:
drop true ;	drop true ;

: >head ( cfa -- nt ) \ gforth to-head	: >head-noprim ( cfa -- nt ) \ gforth to-head-noprim
$25 cell do ( cfa )	$25 cell do ( cfa )
dup i - count $9F and + cfaligned over alias-mask + =	dup i - count $9F and + cfaligned over alias-mask + =
if ( cfa )	if ( cfa )
Line 379 const Create ??? 0 , 3 c, char ? c, cha	Line 379 const Create ??? 0 , 3 c, char ? c, cha

[ELSE]	[ELSE]

: >head ( cfa -- nt ) \ gforth to-head	: >head-noprim ( cfa -- nt ) \ gforth to-head-noprim
$25 cell do ( cfa )	$25 cell do ( cfa )
dup i - count $9F and + cfaligned over alias-mask + =	dup i - count $9F and + cfaligned over alias-mask + =
if ( cfa ) i - cell - unloop exit	if ( cfa ) i - cell - unloop exit
Line 389 const Create ??? 0 , 3 c, char ? c, cha	Line 389 const Create ??? 0 , 3 c, char ? c, cha

[THEN]	[THEN]

' >head ALIAS >name

: body> 0 >body - ;	: body> 0 >body - ;

: (search-wordlist) ( addr count wid -- nt \| false )	: (search-wordlist) ( addr count wid -- nt \| false )