steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

heaps: whoops, this was an error.

db4
John Benediktsson 2014-11-30 22:30:15 -08:00
parent 6f1e819e04
commit 793fa7baeb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/heaps/heaps.factor
View File

@ -181,7 +181,7 @@ M: heap heap-pop ( heap -- value key )
: heap-pop-all ( heap -- alist ) : heap-pop-all ( heap -- alist )
[ dup heap-empty? not ] [ dup heap-empty? not ]
[ [ heap-pop ] keep 2array ] [ dup heap-pop swap 2array ]
produce nip ; produce nip ;
ERROR: not-a-heap obj ; ERROR: not-a-heap obj ;