Collect garbage before profiling.
This commit is contained in:
parent
d228f394be
commit
2666ef688a
|
@ -40,7 +40,11 @@
|
|||
(if use-errortrace?
|
||||
(make-errortrace-compile-handler)
|
||||
(current-compile))])
|
||||
(define (t) (dynamic-require (module-to-profile file) #f))
|
||||
(define (t)
|
||||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(dynamic-require (module-to-profile file) #f))
|
||||
(cond [(and delay iterations)
|
||||
(profile-thunk t
|
||||
#:delay delay
|
||||
|
|
Loading…
Reference in New Issue
Block a user