From 9f82c206479fa1c1bd8dd38af8d33e91810947bf Mon Sep 17 00:00:00 2001
From: Dan Haffey <dhaffey@gmail.com>
Date: Thu, 21 Jul 2016 11:53:13 -0700
Subject: [PATCH] Apply electroplating to roll and reel results.

---
 app/talk.hoon  | 2 +-
 arvo/behn.hoon | 2 +-
 arvo/hoon.hoon | 6 +++---
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/app/talk.hoon b/app/talk.hoon
index 0ed6f849b..12a2fe903 100644
--- a/app/talk.hoon
+++ b/app/talk.hoon
@@ -951,7 +951,7 @@
       ::
       ++  glyph
         |=  idx/@
-        =<  cha.ole
+        =<  cha
         %+  reel  glyphs
         |=  {all/tape ole/{cha/char num/@}}
         =+  new=(snag (mod idx (lent all)) all)
diff --git a/arvo/behn.hoon b/arvo/behn.hoon
index c2a5d27c2..bd5bbb5c8 100644
--- a/arvo/behn.hoon
+++ b/arvo/behn.hoon
@@ -125,7 +125,7 @@
   ++  gas
     |=  b/(list {k/key n/val})
     ^+  a
-    q:(roll b |=({{k/key n/val} q/_a} (put(a q) k n)))
+    (roll b |=({{k/key n/val} q/_a} (put(a q) k n)))
   ::
   ++  tap
     ^-  (list {k/key n/val})
diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index f6825eeb0..40d797050 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -737,7 +737,7 @@
 ++  reel                                                ::  right fold
   ~/  %reel
   |*  {a/(list) b/_|=({* *} +<+)}
-  |-  ^+  +<+.b
+  |-  ^+  ,.+<+.b
   ?~  a
     +<+.b
   (b i.a $(a t.a))
@@ -745,7 +745,7 @@
 ++  roll                                                ::  left fold
   ~/  %roll
   |*  {a/(list) b/_|=({* *} +<+)}
-  |-  ^+  +<+.b
+  |-  ^+  ,.+<+.b
   ?~  a
     +<+.b
   $(a t.a, b b(+<+ (b i.a +<+.b)))
@@ -9480,7 +9480,7 @@
         =-  [a (welp - ?~(c d [[[%rock %tas p.c] q.c] d]))]
         =-  (~(tap by -))
         %.  |=(e/(list tank) [%knit ~(ram re %rose [" " `~] e)])
-        =<  ~(run by f:(reel b .))
+        =<  ~(run by (reel b .))
         |=  {e/{p/term q/term} f/(jar twig tank)}
         (~(add ja f) [%rock %tas p.e] [%leaf (trip q.e)])
       ;~  plug