From e2f18afe0a8a2be9af8ec622970a7be82d778b2b Mon Sep 17 00:00:00 2001
From: Philip Monk <phil@pcmonk.me>
Date: Sat, 24 Aug 2019 20:24:23 -0700
Subject: [PATCH] zuse: make of-wain:format use linear space

---
 bin/solid.pill         |  4 ++--
 pkg/arvo/sys/zuse.hoon | 10 +---------
 2 files changed, 3 insertions(+), 11 deletions(-)

diff --git a/bin/solid.pill b/bin/solid.pill
index 1d6960ca7..0ac62717e 100644
--- a/bin/solid.pill
+++ b/bin/solid.pill
@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:5c41d46da7d12258f46dee61f7350701600b73f08ac5076c6b070378b3fc9ece
-size 15526512
+oid sha256:6257ddbfaefc14fce97d214350bb28d370dbc2f0c3c38e79fe61bbc3b6bf5107
+size 15382912
diff --git a/pkg/arvo/sys/zuse.hoon b/pkg/arvo/sys/zuse.hoon
index d0683f472..0af22867f 100644
--- a/pkg/arvo/sys/zuse.hoon
+++ b/pkg/arvo/sys/zuse.hoon
@@ -5415,15 +5415,7 @@
   ::                                                    ::  ++of-wain:format
   ++  of-wain                                           ::  line list to atom
     |=  tez/(list @t)
-    =|  {our/@ i/@ud}
-    |-  ^-  @
-    ?~  tez
-      our
-    ?:  =(%$ i.tez)
-      $(i +(i), tez t.tez, our (cat 3 our 10))
-    ?:  =(0 i)
-      $(i +(i), tez t.tez, our i.tez)
-    $(i +(i), tez t.tez, our (cat 3 (cat 3 our 10) i.tez))
+    (rap 3 (join '\0a' tez))
   ::                                                    ::  ++of-wall:format
   ++  of-wall                                           ::  line list to tape
     |=  a/wall  ^-  tape