From fe377ba02aecca4794d3551e554e1f3ec75d1850 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 15 Dec 2014 08:53:48 -0800
Subject: [PATCH] heaps: fix slurp-heap to allow modifying the heap while
 slurping.

---
 basis/heaps/heaps.factor | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index 27b53860ff..87e7176ba8 100644
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@@ -147,13 +147,14 @@ M: heap heap-pop*
 M: heap heap-pop
     [ data-first >entry< ] [ heap-pop* ] bi ;
 
-: heap-pop-all ( heap -- alist )
-    check-heap [ heap-size ] keep
-    '[ _ heap-pop swap 2array ] replicate ;
+: slurp-heap ( ... heap quot: ( ... value key -- ... ) -- ... )
+    [ check-heap ] dip
+    [ drop '[ _ heap-empty? ] ]
+    [ '[ _ heap-pop @ ] until ] 2bi ; inline
 
-: slurp-heap ( heap quot: ( value key -- ) -- )
-    [ check-heap [ heap-size ] keep ] dip
-    '[ _ heap-pop @ ] times ; inline
+: heap-pop-all ( heap -- alist )
+    [ heap-size <vector> ] keep
+    [ swap 2array suffix! ] slurp-heap { } like ;
 
 ERROR: bad-heap-delete ;