From 793fa7baebf16dffd54e5656bbb04569b2f313cc Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 30 Nov 2014 22:30:15 -0800
Subject: [PATCH] heaps: whoops, this was an error.

---
 basis/heaps/heaps.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index 109d96bd51..dccf1e5e55 100644
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@@ -181,7 +181,7 @@ M: heap heap-pop ( heap -- value key )
 
 : heap-pop-all ( heap -- alist )
     [ dup heap-empty? not ]
-    [ [ heap-pop ] keep 2array ]
+    [ dup heap-pop swap 2array ]
     produce nip ;
 
 ERROR: not-a-heap obj ;