branch: externals/heap
commit da9637e0f13a529c8e404aa0f6c653eb455bf170
Author: Toby S. Cubitt <toby-predict...@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predict...@dr-qubit.org>
Added heap-clear function.
---
heap.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/heap.el b/heap.el
index b59cae9..72c0345 100644
--- a/heap.el
+++ b/heap.el
@@ -298,6 +298,16 @@ not very efficient, taking O(n) time for combined heap
size n\)."
(heap--resize heap)))
+(defun heap-clear (heap)
+ "Remove all entries from HEAP.
+
+Return number of entries removed."
+ (prog1
+ (heap--count heap)
+ (setf (heap--vect heap) (make-vector (length (heap--vect heap)) nil)
+ (heap--count heap) 0)))
+
+
(provide 'heap)
