From e8acafb2a71065b15f29284f1debd5754203d909 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 4 Feb 2014 12:27:53 -0500 Subject: [PATCH] Fix get-custom-snapshots to conform to the docs. original commit: 7d45129fcaf2d4c7cd93cff9a4c1943001eb944a --- pkgs/profile-pkgs/profile-lib/sampler.rkt | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/pkgs/profile-pkgs/profile-lib/sampler.rkt b/pkgs/profile-pkgs/profile-lib/sampler.rkt index 75cef42..a130a7a 100644 --- a/pkgs/profile-pkgs/profile-lib/sampler.rkt +++ b/pkgs/profile-pkgs/profile-lib/sampler.rkt @@ -124,12 +124,9 @@ (unless (eq? t sampler-thread) (when custom-keys (set! custom-snapshots - (cons (let ([cms (continuation-mark-set->list* - (continuation-marks t) - custom-keys)]) - (if (null? cms) - #f - (car cms))) ; value + (cons (continuation-mark-set->list* + (continuation-marks t) + custom-keys) ; frames custom-snapshots))) (set! snapshots (cons (list* (thread-id t)