From d89c0ff9f054705fef709ad59c1b76427b434e0d Mon Sep 17 00:00:00 2001
From: Ubuntu <pcmonk@asu.edu>
Date: Fri, 29 Aug 2014 17:05:00 +0000
Subject: [PATCH] pokes over %ames now get acks

---
 arvo/gall.hoon | 36 +++++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 15 deletions(-)

diff --git a/arvo/gall.hoon b/arvo/gall.hoon
index 91fe1f5f82..86ffc6bb00 100644
--- a/arvo/gall.hoon
+++ b/arvo/gall.hoon
@@ -332,22 +332,28 @@
 ++  gasp                                                ::  %x take
   |=  [hen=duct pax=path sih=sign]
   ^-  [(list move) _..^$]
-  ?:  ?=(%a -.sih)  [~ ..^$]
-  ?>  ?=(%f -.sih)
-  :_  ..^$
-  :_  ~
-  :-  hen
-  ?-    -.p.+.sih
-      %|
-    [%give %crud %gasp-crud p.p.+.sih]
-  ::
-      %&
-    =+  cay=`cage`q.p.p.+.sih
-    ?+  -.pax  !!
-      %d  [%give (best %rush cay)]
-      %f  [%give (best %rust cay)]
+  ?+    -.sih  !!
+      %a
+    ?>  ?=(%woot +<.sih)
+    :_  ..^$  :_  ~
+    ?~  q.sih
+      [hen %give %nice ~]
+    [hen %give %mean u.q.sih]
+      %f
+    :_  ..^$
+    :_  ~
+    :-  hen
+    ?-    -.p.+.sih
+        %|
+      [%give %crud %gasp-crud p.p.+.sih]
+    ::
+        %&
+      =+  cay=`cage`q.p.p.+.sih
+      ?+  -.pax  !!
+        %d  [%give (best %rush cay)]
+        %f  [%give (best %rust cay)]
+  ==  ==
     ==
-  ==
 ::
 ++  gave                                                ::  %r take
   |=  [hen=duct pax=path sih=sign]