From 96823f230c73301395e4115a9965186f0d74ed4f Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 7 Mar 2016 17:29:54 -0800
Subject: [PATCH] misc debugging

---
 arvo/ford.hoon | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/arvo/ford.hoon b/arvo/ford.hoon
index de092889dc..dfd65b91b7 100644
--- a/arvo/ford.hoon
+++ b/arvo/ford.hoon
@@ -1395,6 +1395,7 @@
       |=(val/* `vase`[typ val])
     ::
     ++  meow                                            ::  assemble
+      :: =+  dyv=0
       |=  {how/beam arg/coin}
       =|  $:  rop/(map term (pair hoof twig))           ::  structures
               bil/(map term (pair hoof twig))           ::  libraries
@@ -1428,6 +1429,9 @@
         |=  {cof/cafe hyd/hood}
         ^-  (bolt _..apex)
         %+  cope  (body cof src.hyd)
+        ::=.  dyv  +(dyv)
+        ::~&  [`term`(cat 3 %apex (fil 4 dyv '  ')) `path`(flop s.how) libs]
+        ::=-  ~&  [`term`(cat 3 %xepa (fil 4 dyv '  ')) `path`(flop s.how)]  -
         |=  {cof/cafe sel/_..apex}
         =.  ..apex  sel
         %+  cope  (neck cof lib.hyd)
@@ -1445,6 +1449,7 @@
         |=  {cof/cafe sel/_..body}
         ^$(src t.src, ..body sel, cof cof)
       ::
+      :: ++  libs  `(set term)`(silt (turn (~(tap by bil)) head.is))
       ++  chad                                          ::  atomic list
         |=  {cof/cafe bax/vase doe/term hon/horn}
         ^-  (bolt vase)