diff options
Diffstat (limited to 'module/statprof.scm')
-rw-r--r-- | module/statprof.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/module/statprof.scm b/module/statprof.scm index 8b90e6489..a36c21540 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -503,11 +503,7 @@ none is available." (error "Can't call statprof-proc-call-data while profiler is running.")) (unless (program? proc) (error "statprof-call-data only works for VM programs")) - (let* ((code (program-code proc)) - (key (if (primitive-code? code) - (procedure-name proc) - code))) - (hashv-ref (stack-samples->procedure-data state) key))) + (hashv-ref (stack-samples->procedure-data state) (program-code proc))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Stats |