From 0394a141d368764f3dac80febdfd34e8a85bd547 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 19 May 2016 01:54:24 +0200
Subject: [PATCH] tools.profiler.sampling.tests: call gc beforehand to ensure
 no random samples are collected

---
 basis/tools/profiler/sampling/sampling-tests.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/tools/profiler/sampling/sampling-tests.factor b/basis/tools/profiler/sampling/sampling-tests.factor
index 51a948b56f..8d24ae4293 100644
--- a/basis/tools/profiler/sampling/sampling-tests.factor
+++ b/basis/tools/profiler/sampling/sampling-tests.factor
@@ -22,5 +22,5 @@ gc
     [ "resource:basis/tools/memory/memory.factor" run-file ] profile
     (get-samples) length 0 >
     ! Should clear it
-    [ ] profile (get-samples) length
+    gc [ ] profile (get-samples) length
 ] unit-test