From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 6 Jan 2019 04:14:15 +0000 (+0000)
Subject: Can't see why I chose to discard recent samples a decade ago.
X-Git-Tag: mit-scheme-pucked-10.1.10~6^2~17
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c8e355ff3c0666d79a4c4863fd0a2c72ca34669a;p=mit-scheme.git

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

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)))))