From 2666ef688ac2fce4c36e22324428efd2b53adc43 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Sat, 9 Jan 2016 14:56:10 -0600
Subject: [PATCH] Collect garbage before profiling.

---
 profile-lib/raco.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/profile-lib/raco.rkt b/profile-lib/raco.rkt
index 8c89a01..c501cc9 100644
--- a/profile-lib/raco.rkt
+++ b/profile-lib/raco.rkt
@@ -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