Merge branch 'master' of https://github.com/urbit/urbit

arvo/batz.hoon

@@ -1,4 +1,4 @@
-::
+!:
 ::  batz (4b), shell
 ::
 |=  pit=vase

arvo/ford.hoon

@@ -407,22 +407,6 @@
         (flaw cof [%leaf "syntax error: {<p.p.vex>} {<q.p.vex>}"] ~)
       (fine cof p.u.q.vex)
     ::
-    ++  fame                                            ::  naked structure
-      |=  [cof=cafe for=mark bek=beak]
-      ^-  (bolt vase)
-      =+  pax=/gate/[for]/str
-      =+  ^=  bem  ^-  beam
-          :_  pax
-          ?:  =(p.bek our)  bek
-          =+  oak=[our %main %da now]
-          ?.  =(~ (ska %cy (tope [oak pax])))  oak
-          bek
-      %+  cope  (fade cof bem)
-      |=  [cof=cafe hyd=hood]
-      %+  cope  (ably:(meow bem ~) cof for hyd)
-      |=  [cof=cafe gen=twig]
-      (maim cof pit gen)
-    ::
     ++  fang                                            ::  protocol door
       |=  [cof=cafe for=mark bek=beak]
       ^-  (bolt vase)

main/bin/chat.hoon

@@ -4,6 +4,7 @@
 =>  %=    .
         +
       =>  +
+      =*  sed  .
       =>  ^/===/lib/pony
       =+  ^=  flag
           $?  %leet
@@ -78,7 +79,7 @@
             ^-  (unit ,[p=@t q=tank])
             =+  hun=(rush a wide:vast)
             ?~  hun  ~
-            ?~(a ~ [~ a (sell (slap seed u.hun))])
+            ?~(a ~ [~ a (sell (slap !>(sed) u.hun))])
           ::
           ++  mess
             %+  cook  |=(a=^mess a)

main/bin/wipe.hoon

@@ -0,0 +1,11 @@
+!:
+::  /=main=/bin/wipe/hoon
+::
+=*  our  -<
+|=  *
+|=  gon=[term (pole term)]
+:_  ~
+%+  turn  `(list term)`gon
+|=  app=term
+^-  gift
+[%xy /g %wipe [our app]]