From 591995934a8dd45735ee759142910bc966614224 Mon Sep 17 00:00:00 2001
From: Joe Bryan <joemfb@gmail.com>
Date: Wed, 5 Dec 2018 16:02:43 -0500
Subject: [PATCH] single-home arvo with %whom

---
 include/c/motes.h | 1 +
 vere/sist.c       | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/include/c/motes.h b/include/c/motes.h
index d833c94ea..78bd52e38 100644
--- a/include/c/motes.h
+++ b/include/c/motes.h
@@ -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')
diff --git a/vere/sist.c b/vere/sist.c
index 8bafa3d8f..f78c39543 100644
--- a/vere/sist.c
+++ b/vere/sist.c
@@ -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)))));