From 397dd6df81ec3065052feb9f79e0714e02b05edb Mon Sep 17 00:00:00 2001
From: "Jose L. Bellod Cisneros" <bellod.cisneros@gmail.com>
Date: Sat, 30 Mar 2019 18:53:05 +0100
Subject: [PATCH] fixes a bug in +nap:to affecting three-item queues

---
 sys/hoon.hoon | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index 863938cadc..5d72eaa72a 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -1875,9 +1875,10 @@
   ::
   ++  nap                                               ::  removes head
     ?>  ?=(^ a)
-    ?:  =(~ l.a)  r.a
-    =+  b=get(a l.a)
-    bal(a ^+(a [p.b q.b r.a]))
+    ?~  a  ~
+    =+  b=get
+    ?~  q.b  ~
+    bal(a ^+(a [n=n.q.b l=l.q.b r=r.q.b]))
   ::
   ++  put                                               ::  insert new tail
     |*  b/*