From a49bd3f2607c2482428e82ead1654dc8628a9765 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Wed, 5 Mar 2014 13:43:43 -0800
Subject: [PATCH] Tighten up zuse.

---
 arvo/zuse.hoon | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon
index 88e2fc0c84..5e66281d71 100644
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@@ -1226,11 +1226,7 @@
           &(?=(& -.q.one) ?=(& -.q.two))                ::  both deltas
           &(?=(~ p.q.one) ?=(~ p.q.two))                ::  not merges
       ==
-  :-  p.one
-  :+  %&
-    ~
-  :-  *cart
-  (weld `(list tako)`q.q.q.one `(list tako)`q.q.q.two)
+  [p.one [%& ~ [*cart (weld q.q.q.one q.q.q.two)]]]
 ::
 ++  glam
   |=  zar=@p  ^-  tape