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

Collect garbage before profiling.

Browse Source
This commit is contained in:
Vincent St-Amour 2016-01-09 14:56:10 -06:00
parent d228f394be
commit 2666ef688a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
profile-lib/raco.rkt
View File

@ -40,7 +40,11 @@
(if use-errortrace? (if use-errortrace?
(make-errortrace-compile-handler) (make-errortrace-compile-handler)
(current-compile))]) (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) (cond [(and delay iterations)
(profile-thunk t (profile-thunk t
#:delay delay #:delay delay