[elpa] externals/heap da9637e 25/31: Added heap-clear function.

[Stefan Monnier]

branch: externals/heap
commit da9637e0f13a529c8e404aa0f6c653eb455bf170
Author: Toby S. Cubitt <toby-predictive@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predictive@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)