version 1.44, 1999/12/12 12:49:52
|
version 1.45, 2000/03/19 23:04:13
|
Line 365 const Create ??? 0 , 3 c, char ? c, cha
|
Line 365 const Create ??? 0 , 3 c, char ? c, cha
|
drop true ; |
drop true ; |
|
|
: >head ( cfa -- nt ) \ gforth to-head |
: >head ( cfa -- nt ) \ gforth to-head |
$21 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 ) |
dup i - cell - dup head? |
dup i - cell - dup head? |
Line 380 const Create ??? 0 , 3 c, char ? c, cha
|
Line 380 const Create ??? 0 , 3 c, char ? c, cha
|
[ELSE] |
[ELSE] |
|
|
: >head ( cfa -- nt ) \ gforth to-head |
: >head ( cfa -- nt ) \ gforth to-head |
$21 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 |
then |
then |