From 06c0b54d1b9af0fa0d9560a274a691e361ff1b60 Mon Sep 17 00:00:00 2001
From: Jared Hance <jared.hance@case.edu>
Date: Wed, 2 Jul 2014 15:44:37 -0400
Subject: [PATCH] Various fixes and improvements.

++murn is better.

++zing now works like ++welp.
---
 arvo/hoon.hoon | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index c2715fcbf4..91dc5350f5 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -698,14 +698,15 @@
   ?:  (b i.a)  &
   $(a t.a)
 ::
-++  murn                                                ::  maybe transform
+++  murn  !:                                            ::  maybe transform
   |*  [a=(list) b=$+(* (unit))]
-  %+  reel  a
-  |*  [c=* acc=(list)]
-  =+  i=(b c)
-  ?~  i
-    acc
-  [i=u.i t=acc]
+  |-
+  ?~  a
+    ~
+  =+  c=(b i.a)
+  ?~  c
+    $(a t.a)
+  [i=u.c t=$(a t.a)]
 ::
 ++  reel                                                ::  right fold
   ~/  %reel
@@ -824,11 +825,13 @@
   [i=i.a $(a t.a)]
 ::
 ++  zing                                                ::  promote
-  |*  a=(list (list))
-  ^+  ?>(?=(^ a) (homo i.a))
-  |-
-  ?~  a  ~
-  (weld i.a $(a t.a))
+  =|  *
+  |%
+  +-  $
+    ?~  +<
+      +<
+    (welp +<- $(+< +<+))
+  --
   ::::::::::::::::::::::::::::::::::::::::::::::::::::::  ::
 ::::              chapter 2c, simple noun surgery       ::::
 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::