fixes a bug in +nap:to affecting three-item queues

2024-12-14 20:02:51 +03:00 · 2019-03-30 18:53:05 +01:00 · 2019-03-30 18:53:05 +01:00 · 397dd6df81
commit 397dd6df81
parent 04b71f2cf8
1 changed files with 4 additions and 3 deletions
--- 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/*