merging across network tentatively works

arvo/clay.hoon

@@ -807,6 +807,7 @@
           ~|  %plop-strange-coy
           !!
         =+  bob=((hard blob) -.q.coy)
+        ~&  [%taking p.coy]
         ?-  -.bob
           %delta      [-.bob p.bob q.bob q.i.p.p.cay (slot 3 coy)]
           %direct     [-.bob p.bob q.i.p.p.cay (slot 3 coy)]

arvo/ford.hoon

@@ -747,9 +747,14 @@
       |=  [cof=cafe sam=vase]
       ^-  (bolt vase)
       %+  cool  |.(leaf/"ford: check {<[for bek `@p`(mug q.sam)]>}")
-      ?:  ?=(?(%gate %core %door %hoon %hook) for)
+      ?:  ?=(?(%gate %core %door) for)
         ::  ~&  [%lake-easy for bek]
         (fine cof sam)
+      ?:  ?=(?(%hoon %hook) for)
+        =+  mas=((soft ,@t) q.sam)
+        ?~  mas
+          (flaw cof [leaf/"ford: bad hoon or hook: {<[for bek]>}"]~)
+        (fine cof [%atom %t] u.mas)
       %+  cope  (fang cof for bek)
       |=  [cof=cafe tux=vase]
       =+  bob=(slot 6 tux)
@@ -867,8 +872,10 @@
       %+  cope  (fang cof for bek)
       |=  [cof=cafe pro=vase]
       ?:  &((slob %grow p.pro) (slob too p:(slap pro [%cnzy %grow])))
+        ~&  [%herep-a -.vax]
         %+  cope  (keel cof pro [[%& 6]~ vax]~)
         |=  [cof=cafe pox=vase]
+        ~&  %herep-b
         (maim cof pox [%tsgr [%cnzy %grow] [%cnzy too]])
       %+  cope  (fang cof too bek)
       |=  [cof=cafe pro=vase]
@@ -1062,6 +1069,7 @@
         %+  cool  |.(leaf/"ford: vale {<p.kas>} {<q.kas>} {<`@p`(mug r.kas)>}")
         %+  cope  (lave cof p.kas q.kas r.kas)
         |=  [cof=cafe vax=vase]
+        ~&  [%valing p.kas p.vax]
         (fine cof `cage`[p.kas vax])
       ==
     ::

main/mar/eot/door.hook

@@ -15,6 +15,7 @@
 ++  grab
   |%
   ++  mime  |=([p=mite q=octs] q.q)
+  ++  noun  ,@
   --
 ++  grad
   |%

main/mar/hoon/door.hook

@@ -6,19 +6,19 @@
 |_  own=@t
 ::
 ++  grow                                                ::  convert to
+  ~&  hoon=(met 3 own)
   |%
-  ++  mime  [/text/hoon (taco own)]                     ::  convert to %mime
+  ++  mime  `^mime`[/text/hoon (taco own)]              ::  convert to %mime
   ++  psal  ;div:(pre:"{(trip own)}")                   ::  convert to %html
   ++  hymn  ;html:(head:title:"Source" "+{psal}")
   ++  txt
     (lore (cat 3 own '\0a'))
   --
 ++  grab
-  =>  v=.
   |%                                            ::  convert from
-  ++  mime  =>  v  |=([p=mite q=octs] q.q)
-  ++  noun  =>  v  ,@t                                 ::  clam from %noun
-  ++  txt   =>  v
+  ++  mime  |=([p=mite q=octs] q.q)
+  ++  noun  ,@t                                 ::  clam from %noun
+  ++  txt
     |=  wan=wain
     ^-  @t
     =+  (role wan)

main/mar/mime/door.hook

@@ -2,6 +2,7 @@
 ::::  /hoon/core/mime/mar
   ::
 /?  314
+!:
 |_  own=mime
 ++  grab                                                ::  convert from
   |% 

main/mar/otf/door.hook

@@ -15,6 +15,7 @@
 ++  grab
   |%
   ++  mime  |=([p=mite q=octs] q.q)
+  ++  noun  ,@
   --
 ++  grad
   |%

main/mar/styl/door.hook

@@ -11,6 +11,7 @@
 ++  grab
   |%
   ++  mime  |=([p=mite q=octs] q.q)
+  ++  noun  ,@t
   --
 ++  grad
   |%

main/mar/woff/door.hook

@@ -15,6 +15,7 @@
 ++  grab
   |%
   ++  mime  |=([p=mite q=octs] q.q)
+  ++  noun  ,@
   --
 ++  grad
   |%