heaps: whoops, this was an error.

2014-11-30 22:30:15 -08:00 · 2014-11-30 22:30:15 -08:00 · 793fa7baeb
parent 6f1e819e04
commit 793fa7baeb
1 changed files with 1 additions and 1 deletions
--- 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 ;