Can't see why I chose to discard recent samples a decade ago.

(cherry picked from commit c8e355ff3c0666d79a4c4863fd0a2c72ca34669a)

diff --git a/src/runtime/stack-sample.scm b/src/runtime/stack-sample.scm
index 834f4469fa918590352ec62f4353282be532747f..3e8c5f7995faa1722d35e4af92eaab6aa0b19449 100644 (file)
--- a/src/runtime/stack-sample.scm
+++ b/src/runtime/stack-sample.scm
@@ -244,7 +244,7 @@
 
 (define (record-waiting profile stack-frame time-stamp)
   (let ((entry (intern-entry profile stack-frame)))
-    (if (and entry (not (eqv? time-stamp (entry.time-stamp entry))))
+    (if entry
         (begin
           (set-entry.waiting-count! entry (+ 1 (entry.waiting-count entry)))
           (set-entry.time-stamp! entry time-stamp)))))