Fix get-custom-snapshots to conform to the docs.

original commit: 7d45129fcaf2d4c7cd93cff9a4c1943001eb944a
2014-02-04 12:27:53 -05:00 · 2014-02-04 12:27:53 -05:00 · e8acafb2a7
commit e8acafb2a7
parent 5400ad7a85
1 changed files with 3 additions and 6 deletions
--- 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)