From 028668cc094720f71bb25af4129fe2ca9da5afa7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 6 Nov 2007 21:04:01 -0600
Subject: [PATCH] Remove debugging print

---
 extra/concurrency/concurrency.factor | 1 -
 1 file changed, 1 deletion(-)

diff --git a/extra/concurrency/concurrency.factor b/extra/concurrency/concurrency.factor
index 426ef617ca..1e9b769823 100644
--- a/extra/concurrency/concurrency.factor
+++ b/extra/concurrency/concurrency.factor
@@ -43,7 +43,6 @@ TUPLE: thread timeout continuation continued? ;
 : (mailbox-block-if-empty) ( mailbox timeout -- mailbox2 )
     over mailbox-empty? [
         [ <thread> swap mailbox-threads push stop ] callcc0
-        "(mailbox-block-if-empty)" print flush
         (mailbox-block-if-empty)
     ] [
         drop