From: simonmar <unknown>
Date: Mon, 28 Nov 2005 14:37:56 +0000 (+0000)
Subject: [project @ 2005-11-28 14:37:56 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~2
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6d22c8360fa5712b2f288949d43d904e5f2d33a2;p=ghc-hetmet.git

[project @ 2005-11-28 14:37:56 by simonmar]
small fix to debugging output
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index d1a6a55..c4b253f 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -633,8 +633,8 @@ run_thread:
     // immediately and return to normaility.
     if (ret == ThreadBlocked) {
 	IF_DEBUG(scheduler,
-		 debugBelch("--<< thread %d (%s) stopped: blocked\n",
-			    t->id, whatNext_strs[t->what_next]));
+		 sched_belch("--<< thread %d (%s) stopped: blocked\n",
+			     t->id, whatNext_strs[t->what_next]));
 	continue;
     }
 #endif