diff options
Diffstat (limited to 'module/statprof.scm')
-rw-r--r-- | module/statprof.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/module/statprof.scm b/module/statprof.scm index c9deb033f..af41622c2 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -295,11 +295,9 @@ hit-count-call?)) (define (reset-sigprof-timer usecs) - (let ((secs (quotient usecs #e1e6)) - (usecs (remainder usecs #e1e6))) - ;; Guile's setitimer binding is terrible. - (let ((prev (setitimer ITIMER_PROF 0 0 secs usecs))) - (+ (* (caadr prev) #e1e6) (cdadr prev))))) + ;; Guile's setitimer binding is terrible. + (let ((prev (setitimer ITIMER_PROF 0 0 0 usecs))) + (+ (* (caadr prev) #e1e6) (cdadr prev)))) (define (profile-signal-handler sig) (define state (existing-profiler-state)) |