From d6028c031603bd3e1651a991cc12eac988b6135f Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sat, 21 Jan 2012 12:02:10 -0800 Subject: [PATCH] Pass profile into run-with-stack-sampling. --- src/runtime/stack-sample.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/runtime/stack-sample.scm b/src/runtime/stack-sample.scm index c38fc1f52..bd9370d54 100644 --- a/src/runtime/stack-sample.scm +++ b/src/runtime/stack-sample.scm @@ -115,9 +115,8 @@ ;;;; Running with Stack Sampling -(define (run-with-stack-sampling sample-interval thunk) - (let ((profile (make-profile)) - (timer-registration #t)) +(define (run-with-stack-sampling profile sample-interval thunk) + (let ((timer-registration #t)) (define (register-event) (if timer-registration (set! timer-registration @@ -279,7 +278,7 @@ (with-notification (lambda (output-port) (write-string "Stack-sampling" output-port)) (lambda () - (run-with-stack-sampling sample-interval thunk))) + (run-with-stack-sampling (make-profile) sample-interval thunk))) (write-notification-line (lambda (output-port) (display-profile profile output-port))) -- 2.25.1