suzanne.soy/profile
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
original commit: 7d45129fcaf2d4c7cd93cff9a4c1943001eb944a
This commit is contained in:
Vincent St-Amour 2014-02-04 12:27:53 -05:00
parent 5400ad7a85
commit e8acafb2a7
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/profile-pkgs/profile-lib/sampler.rkt
View File

@ -124,12 +124,9 @@
(unless (eq? t sampler-thread) (unless (eq? t sampler-thread)
(when custom-keys (when custom-keys
(set! custom-snapshots (set! custom-snapshots
(cons (let ([cms (continuation-mark-set->list* (cons (continuation-mark-set->list*
(continuation-marks t) (continuation-marks t)
custom-keys)]) custom-keys) ; frames
(if (null? cms)
#f
(car cms))) ; value
custom-snapshots))) custom-snapshots)))
(set! snapshots (set! snapshots
(cons (list* (thread-id t) (cons (list* (thread-id t)