From afa76048e0bc4cf2f82fb72d393c175cd518cbf3 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Tue, 1 Jul 2014 15:51:42 -0700
Subject: [PATCH] comment fixes

---
 arvo/batz.hoon | 2 +-
 arvo/clay.hoon | 2 +-
 arvo/gall.hoon | 2 +-
 arvo/zuse.hoon | 8 ++++----
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/arvo/batz.hoon b/arvo/batz.hoon
index dbd0ad8a4..a15a0fed3 100644
--- a/arvo/batz.hoon
+++ b/arvo/batz.hoon
@@ -74,7 +74,7 @@
           ==                                            ::
 ++  riff  ,[p=desk q=(unit rave)]                       ::  see %clay
 ++  sigh  ,[@tas p=sign]                                ::  sourced sign
-++  sign                                                ::  in result $-<
+++  sign                                                ::  in result $<-
           $%  [%crud p=@tas q=(list tank)]              ::  by any
               [%hail ~]                                 ::  by any
               [%helo p=path q=prod]                     ::  by %ames
diff --git a/arvo/clay.hoon b/arvo/clay.hoon
index ba1158590..4400f1ced 100644
--- a/arvo/clay.hoon
+++ b/arvo/clay.hoon
@@ -32,7 +32,7 @@
               $:  %d                                    ::
           $%  [%flog p=[%crud p=@tas q=(list tank)]]    ::  to %dill
           ==  ==  ==                                    ::
-++  sign                                                ::  in result $-<
+++  sign                                                ::  in result $<-
           $?  $:  %a                                    ::  by %ames
           $%  [%send p=lane q=@]                        ::  
               [%waft p=sock q=*]                        ::
diff --git a/arvo/gall.hoon b/arvo/gall.hoon
index 48d1dd48c..efdd8929e 100644
--- a/arvo/gall.hoon
+++ b/arvo/gall.hoon
@@ -103,7 +103,7 @@
               ped=(set (pair ship desk))                ::  active depends
               zam=scar                                  ::  opaque ducts
           ==                                            ::
-++  sign                                                ::  in result $-<
+++  sign                                                ::  in result $<-
           $?  [?(%a %b %c %d %e) @tas *]                ::
               $:  %g                                    ::  by %gall
           $%  [%dumb ~]                                 ::
diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon
index 65bbe7432..a037ae9c7 100644
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@@ -1868,14 +1868,14 @@
     ==
   ==
 ::
-++  hunt
+++  hunt                                                ::  first of unit dates
   |=  [one=(unit ,@da) two=(unit ,@da)]
   ^-  (unit ,@da)
   ?~  one  two
   ?~  two  one
   ?:((lth u.one u.two) one two)
 ::
-++  meat
+++  meat                                                ::  kite to .^ path
   |=  kit=kite
   ^-  path
   [(cat 3 'c' p.kit) (scot %p r.kit) s.kit (scot (dime q.kit)) t.kit]
@@ -1919,7 +1919,7 @@
   ?:  ?=(| -.mud)  mud
   (mule |.((slam p.mud sam)))
 ::
-++  numb                                                ::  ??  XX
+++  numb                                                ::  ship display name? XX
   |=  [him=@p now=@da]  ^-  @t
   =+  yow=(scot %p him)
   =+  woy=((hard ,@t) .^(%a yow %name (scot %da now) ~))
@@ -2227,7 +2227,7 @@
           $%  [%a p=(list json)]                        ::  array
               [%o p=(map ,@t json)]                     ::  object
           ==                                            ::
-++  jval  json                                          ::  XX compatibility
+++  jval  json                                          ::  compatibility      XX
 ++  lamb                                                ::  short path
           $%  [& p=@tas]                                ::  auto
               [| p=twig]                                ::  manual