From 2e230304fc98eca9f5f4a6b968bf56c2626e218b Mon Sep 17 00:00:00 2001
From: pcmonk <pcmonk@asu.edu>
Date: Tue, 8 Jul 2014 20:20:38 -0700
Subject: [PATCH] Fixed lag bug

---
 arvo/ames.hoon         |  1 -
 arvo/gall.hoon         | 21 ++++++++++++++++-----
 main/doc/chat/help.txt |  2 +-
 3 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/arvo/ames.hoon b/arvo/ames.hoon
index 1969f03400..7fcd132f75 100644
--- a/arvo/ames.hoon
+++ b/arvo/ames.hoon
@@ -1660,7 +1660,6 @@
       ==
     ::
         %ouzo
-      ::  ~&  [%send now p.bon `@p`(mug (shaf %flap q.bon))]
       :_  fox
       [[hen [%give %send p.bon q.bon]] ~]
     ::
diff --git a/arvo/gall.hoon b/arvo/gall.hoon
index 6acd1e64d6..57e2147640 100644
--- a/arvo/gall.hoon
+++ b/arvo/gall.hoon
@@ -1,4 +1,4 @@
-::  ::  %gall, user-level applications
+!:  ::  %gall, user-level applications
 !?  164
 ::::
 |=  pit=vase
@@ -18,6 +18,7 @@
               [%mean p=(list tank)]                     ::  message failure
               [%meta p=vase]                            ::  meta-gift
               [%nice ~]                                 ::  message success
+              [%send p=lane q=@]                        ::  transmit packet
           ==                                            ::
 ++  hasp  ,[p=ship q=term]                              ::  app identity
 ++  kiss                                                ::  in request ->$
@@ -107,7 +108,11 @@
               zam=scar                                  ::  opaque ducts
           ==                                            ::
 ++  sign                                                ::  in result $<-
-          $?  [?(%a %b %c %d %e) @tas *]                ::
+          $?  [?(%b %c %d %e) @tas *]                   ::
+              $:  %a                                    ::  by %ames
+          $%  [%send p=lane q=@]                        ::
+              [%went p=ship q=cape]                     ::
+          ==  ==                                        ::
               $:  %g                                    ::  by %gall
           $%  [%dumb ~]                                 ::
               [%lean ~]                                 ::  cancel subscription
@@ -311,7 +316,11 @@
 ++  gasp                                                ::  %x take
   |=  [hen=duct pax=path sih=sign]
   ^-  [(list move) _..^$]
-  ?.  ?=(%f -.sih)  ?>(?=(%a -.sih) [~ ..^$])
+  ?:  ?=(%a -.sih)
+    :_  ..^$
+    ?.  ?=(%send -.+.sih)  ~
+    [hen %give +.sih]~
+  ?>  ?=(%f -.sih)
   :_  ..^$
   :_  ~
   :-  hen
@@ -339,7 +348,9 @@
   :_  ..^$
   =+  rod=|=(ron=roon `note`[%a %want [our you] /q/gh/[app] num ron])
   ?+  -.pax  !!
-    %m  ?:  ?=(%a -.sih)  ~
+    %m  ?:  ?=(%a -.sih)
+          ?.  ?=(%send +<.sih)  ~
+          [hen %give +.sih]~
         :_  ~  :-  hen
         :+  %pass  [%r pax]
         ^-  note
@@ -361,7 +372,7 @@
           ==
         ==
     %s  ?+    -.sih  !!
-            %a  ~
+            %a  ?.  ?=(%send +<.sih)  ~  [hen %give +.sih]~
             %g
           :_  ~  :-  hen
           :+  %pass  [%r pax]
diff --git a/main/doc/chat/help.txt b/main/doc/chat/help.txt
index d5f1e4ea7a..697f821a7e 100644
--- a/main/doc/chat/help.txt
+++ b/main/doc/chat/help.txt
@@ -21,7 +21,7 @@ command-line parameters:
 %monitor                 display entrance and exit notices
 %quiet                   do not display entrance and exit notices
 %leet                    only display ship names
-%nub                     display ship and textual names
+%noob                    display ship and textual names
 
 only one of %monitor and %quiet may be specfied. default behavior is %quiet.
 only one of %leet and %noob may be specified. default behavior is %leet.