accepts all (identical) %init cards

This commit is contained in:
Joe Bryan 2018-10-16 17:26:41 -04:00
parent 204cf9be09
commit 25bb368243
2 changed files with 9 additions and 8 deletions

View File

@ -100,8 +100,8 @@ _reck_kick_term(u3_noun pox, c3_l tid_l, u3_noun fav)
case c3__init: p_fav = u3t(fav);
{
c3_assert( u3_none == u3A->own );
u3A->own = u3k(p_fav);
uL(fprintf(uH, "kick: init: term\n"));
c3_assert( c3y == u3r_sing(u3A->own, p_fav) );
u3z(pox); u3z(fav); return c3y;
} break;
@ -225,7 +225,7 @@ _reck_kick_ames(u3_noun pox, u3_noun fav)
case c3__init: p_fav = u3t(fav);
{
uL(fprintf(uH, "kick: init: ames\n"));
c3_assert(0);
c3_assert( c3y == u3r_sing(u3A->own, p_fav) );
u3z(pox); u3z(fav); return c3y;
} break;
@ -315,7 +315,7 @@ _reck_kick_spec(u3_noun pox, u3_noun fav)
case c3__init: p_fav = u3t(fav);
{
uL(fprintf(uH, "kick: init: spec\n"));
c3_assert(0);
c3_assert( c3y == u3r_sing(u3A->own, p_fav) );
u3z(pox); u3z(fav); return c3y;
} break;

View File

@ -1346,7 +1346,7 @@ void
u3_sist_boot(void)
{
if ( c3y == u3_Host.ops_u.nuu ) {
u3_noun pig;
u3_noun pig, who;
if ( 0 != u3_Host.ops_u.fak_c ) {
u3_noun whu = u3dc("slaw", 'p', u3i_string(u3_Host.ops_u.fak_c));
@ -1359,16 +1359,17 @@ u3_sist_boot(void)
fprintf(stderr, "fake: %s\r\n", u3_Host.ops_u.fak_c);
u3A->fak = c3y;
pig = u3nc(c3__fake, u3k(u3t(whu)));
who = u3k(u3t(whu));
pig = u3nc(c3__fake, who);
u3z(whu);
}
else {
u3A->fak = c3n;
pig = _sist_dawn();
who = u3k(u3h(u3h(u3t(pig))));
}
// will be set by %init card in reck.c
u3A->own = u3_none;
u3A->own = who;
_sist_make(pig);
}
else {