From 6865cee372e0fabefd8bf3486c341a089ed51c7e Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Tue, 7 Oct 2014 16:12:14 -0700
Subject: [PATCH] Grep acks

---
 main/app/grep/core.hook | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/main/app/grep/core.hook b/main/app/grep/core.hook
index 17c416682f..1c0a192357 100644
--- a/main/app/grep/core.hook
+++ b/main/app/grep/core.hook
@@ -20,17 +20,27 @@
     *
   `+>
 ++  pour
-  |=  [ost=bone pax=path sih=sign]
+  |=  [ost=bone pax=path sih=*]
+  =+  sih=;;(sign sih)
   ?^  pax  `+>.$
   :_  +>.$
   ?-    +<.sih
       %nice
     [ost %give %nice ~]~
       %rush
-    =+  lin=?-(+>-.sih %txt p.sih, %tang (crip ~(ram re -.p.sih)))
-    ?.  =(arg lin)  ~
-    %+  turn
-      (~(tap in (~(get ju pus.hid) /out)))
-    |=(a=bone [a %give +.sih])
+    =+  lin=?-(+>-.sih %txt (trip p.sih), %tang ~(ram re -.p.sih))
+    =+  tag=(trip arg)
+    %-  spam
+    |-
+    ?:  =(tag (scag (lent tag) lin))
+      +.sih
+    ?~  lin
+      [%rush %tang ~]
+    $(lin t.lin)
   ==
+++  spam
+  |*  git=*
+  %+  turn
+    (~(tap in (~(get ju pus.hid) /out)))
+  |=(a=bone [a %give git])
 --