From 1d0962677623e206a72070b39228f1a9e652d970 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Mon, 8 Jun 2015 16:36:14 -0700
Subject: [PATCH] Less.

---
 base/arvo/gall.hoon | 4 ++--
 base/lib/drum.hoon  | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/base/arvo/gall.hoon b/base/arvo/gall.hoon
index f67b3286f2..cbf8e226b8 100644
--- a/base/arvo/gall.hoon
+++ b/base/arvo/gall.hoon
@@ -678,10 +678,10 @@
     ++  ap-fill                                         ::  add to queue
       ^-  [? _.]
       =+  suy=(fall (~(get by qel.ged) ost) 0)
-      ?:  =(20 suy)
+      ?:  =(40 suy)
         ~&  [%ap-fill-full [our dap] q.q.pry ost]
         [%| +]
-      ::  ~?  !=(20 suy)  [%ap-fill-add [[our dap] q.q.pry ost] +(suy)]
+      ::  ~?  !=(40 suy)  [%ap-fill-add [[our dap] q.q.pry ost] +(suy)]
       [%& +(qel.ged (~(put by qel.ged) ost +(suy)))]
     ::
     ++  ap-find                                         ::  general arm
diff --git a/base/lib/drum.hoon b/base/lib/drum.hoon
index 16bfe452a8..74a57d8ba7 100644
--- a/base/lib/drum.hoon
+++ b/base/lib/drum.hoon
@@ -179,7 +179,6 @@
   ++  diff-sole-effect-phat                             ::
     |=  [way=wire fec=sole-effect]  
     =<  se-abet  =<  se-view
-    ~&  [%phat +.fec]
     =+  gyl=(drum-phat way)
     ?:  (se-aint gyl)  +>.$
     (se-diff gyl fec)
@@ -689,7 +688,8 @@
         %tan  (ta-tan p.fec)
         %sag  +>(+> (se-blit fec))
         %sav  +>(+> (se-blit fec))
-        %txt  $(fec [%tan [%leaf p.fec]~])
+        %txt  ~&  [%ta-fec (tape p.fec)]
+              $(fec [%tan [%leaf p.fec]~])
       ==
     ::
     ++  ta-dog                                          ::  change cursor