khan: basic +call, types

pkg/arvo/sys/lull.hoon

@@ -2098,12 +2098,12 @@
 ++  khan  ^?
   |%
   +$  gift                                              ::  out result <-$
-    $%  [%avow ~]
+    $%  [%avow (each cage [term tang])]                 ::  thread result
     ==
   +$  task                                              ::  in request ->$
     $~  [%vega ~]
     $%  $>(%born vane-task)                             ::  new unix process
-        [%fyrd ~]
+        [%fyrd =beak name=term data=*]                  ::  run thread v0
         $>(%trim vane-task)                             ::  trim state
         $>(%vega vane-task)                             ::  report upgrade
     ==

pkg/arvo/sys/vane/khan.hoon

@@ -30,7 +30,17 @@
   ^-  [(list move) _khan-gate]
   ::
   =/  =task:khan  ((harden task:khan) wrapped-task)
-  [~ khan-gate]
+  ?-    -.task
+      %vega
+    [~ khan-gate]
+      %trim
+    [~ khan-gate]
+      %born
+    [~ khan-gate(unix-duct hen)]
+      %fyrd
+    ::  send to gall, sub for updates
+    !!
+  ==
 ::  +load: migrate an old state to a new khan version
 ::
 ++  load
@@ -50,5 +60,6 @@
   ^-  [(list move) _khan-gate]
   ?^  dud
     ~|(%khan-take-dud (mean tang.u.dud))
+  ::  switch on type of thing you get back, update state
   [~ khan-gate]
 --