From 2eea6347855521887e4309707b4c8f849c152888 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 6 Jan 2019 04:14:15 +0000
Subject: [PATCH] Can't see why I chose to discard recent samples a decade ago.

(cherry picked from commit c8e355ff3c0666d79a4c4863fd0a2c72ca34669a)
---
 src/runtime/stack-sample.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/stack-sample.scm b/src/runtime/stack-sample.scm
index 834f4469f..3e8c5f799 100644
--- 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)))))
-- 
2.25.1