single-home arvo with %whom

This commit is contained in:
Joe Bryan 2018-12-05 16:02:43 -05:00
parent 511ff89f80
commit 591995934a
2 changed files with 5 additions and 0 deletions

View File

@ -1202,6 +1202,7 @@
# define c3__werp c3_s4('w','e','r','p')
# define c3__west c3_s4('w','e','s','t')
# define c3__what c3_s4('w','h','a','t')
# define c3__whom c3_s4('w','h','o','m')
# define c3__wing c3_s4('w','i','n','g')
# define c3__wild c3_s4('w','i','l','d')
# define c3__win c3_s3('w','i','n')

View File

@ -1694,6 +1694,10 @@ u3_sist_boot(void)
u3A->own = who;
// set single-home
//
u3v_plan(u3nt(u3_blip, c3__arvo, u3_nul), u3nc(c3__whom, u3k(who)));
// initialize ames
{
u3_noun tuf = (c3y == u3A->fak) ? u3_nul : u3h(u3t(u3t(u3t(u3t(pig)))));