From c8e355ff3c0666d79a4c4863fd0a2c72ca34669a Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 6 Jan 2019 04:14:15 +0000 Subject: [PATCH] Can't see why I chose to discard recent samples a decade ago. --- 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