chickadee » heap » heap-delete!

Delete the element with datum

heap

The heap from which to delete

datum

The datum whose element to delete

(define (heap-delete! heap datum)
  (let ((i (heap-index heap datum)))
    (if i
      (heap-delete!/index heap i)
      (error "Datum not found -- HEAP-DELETE!"))))