From a55d4d1413695a25a183ae9cd397ec244884a00c Mon Sep 17 00:00:00 2001
From: pcmonk <pcmonk@asu.edu>
Date: Mon, 7 Jul 2014 17:32:58 -0700
Subject: [PATCH] fixed %nice, %mean over %ames

---
 arvo/batz.hoon           | 6 ++++++
 arvo/gall.hoon           | 6 +++---
 arvo/hoon.hoon           | 2 ++
 main/app/radio/core.hoon | 8 ++++++--
 4 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/arvo/batz.hoon b/arvo/batz.hoon
index 44e039b52..4b7d3f99e 100644
--- a/arvo/batz.hoon
+++ b/arvo/batz.hoon
@@ -86,6 +86,9 @@
               [%hail ~]                                 ::  by any
               [%helo p=path q=prod]                     ::  by %ames
               [%init p=@p]                              ::  by %ames
+              [%lean ~]                                 ::
+              [%mean p=(list tank)]                     ::
+              [%nice ~]                                 ::
               [%note p=@tD q=tank]                      ::  by %clay
               [%pipe p=(unit ,[p=tutu q=(list)])]       ::  by %batz
               [%rush p=logo q=*]                        ::
@@ -274,6 +277,9 @@
       %hail  [[[hen %give sin] ~] +<.^^$]
       %helo  [~ +<.^^$]
       %init  [[[hen %give sin] ~] +<.^^$]
+      %lean  [~ +<.^^$]
+      %mean  [~ +<.^^$]
+      %nice  [~ +<.^^$]
       %note  [[[hen %give sin] ~] +<.^^$]
       %pipe  !!
       %rush  ?.  (fear tea)  ::  legit
diff --git a/arvo/gall.hoon b/arvo/gall.hoon
index 6c29ae3d6..6acd1e64d 100644
--- a/arvo/gall.hoon
+++ b/arvo/gall.hoon
@@ -388,10 +388,10 @@
   ^-  move  :-  neh
   ?-  -.ron
     %d  [%pass /x/d `note`[%f %exec p.saq ~ %vale p.ron saq q.ron]]
-    %e  !!
+    %e  [%give %mean p.ron]
     %f  [%pass /x/f `note`[%f %exec p.saq ~ %vale p.ron saq q.ron]]
-    %k  !!
-    %n  !!
+    %k  [%give %nice ~]
+    %n  [%give %lean ~]
   ==
 ::
 ++  gawk                                                ::  %r call/request
diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index d052f8b05..1b45ef9e2 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -9744,8 +9744,10 @@
       ^-  [p=(list move) q=vase]
       =+  ^=  pru
           ?~  pux
+            ~|  [%swim-call-vane lal]
             %+  slur  (slap rig [%cnzy %call]) 
             (slid [%& duc.vil hen] (slix hil))
+          ~|  [%swim-take-vane lal]
           %+  slur   (slap rig [%cnzy %take]) 
           ;:  slid
             [%& pah.vil u.pux] 
diff --git a/main/app/radio/core.hoon b/main/app/radio/core.hoon
index 2b03ed08e..2f5bd4317 100644
--- a/main/app/radio/core.hoon
+++ b/main/app/radio/core.hoon
@@ -16,7 +16,7 @@
     ++  gift
       $%  [%rush blitz]
           [%rust iron]
-          [%rasp ~]
+          [%nice ~]
       ==
     ++  mess                                            ::  message
       $%  [%do p=@t]                                    ::  act
@@ -87,6 +87,7 @@
       %backlog
     =+  ya=(grab p.zig)
     :_  +>.$
+    :-  [ost give/nice//]
     %^  yend  you  (welp p.zig /mensajes)
     :*  %give  %rust  %zongs 
         ?:  ?=(%ud q.zig)
@@ -108,6 +109,7 @@
       (send (welp p.zig /amigos) %give %rush %user %out p.p (ident p.p))
     =.  p.vat  (~(put by p.vat) p.zig [p.ya (~(put by q.ya) you [& lat.hid])])
     :_  +>.$
+    :-  [ost give/nice//]
     ?:  (~(has by q.ya) you)
       outs
     %+  welp  outs
@@ -116,7 +118,9 @@
     =+  zog=`zong`[%mess lat.hid you q.zig]
     =+  ya=(grab p.zig)
     =.  p.vat  (~(put by p.vat) p.zig [[zog p.ya] q.ya])
-    [(send (welp p.zig /mensajes) %give %rush %zong zog) +>.$]
+    :_  +>.$
+    :-  [ost give/nice//]
+    (send (welp p.zig /mensajes) %give %rush %zong zog)
   ==
 ::
 ++  send