X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FApply.cmm;fp=ghc%2Frts%2FApply.cmm;h=e4197ecb49b88c5461e6507ffeebf343b2c227d2;hb=03d63424f3034c34d61fe0f654e05d20c9eded89;hp=1fe444e3f9cfd43879087dd6f6ab0ef009a5544b;hpb=8a1f6023fa6fde26604dc0ac26469fd93f978d58;p=ghc-hetmet.git

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 1fe444e..e4197ec 100644
--- a/ghc/rts/Apply.cmm
+++ b/ghc/rts/Apply.cmm
@@ -41,7 +41,7 @@ INFO_TABLE_RET( stg_ap_0,
     // fn is in R1, no args on the stack
 
     IF_DEBUG(apply,
-	foreign "C" fprintf(W_[stderr] "ptr", stg_ap_0_ret_str);
+	foreign "C" debugBelch(stg_ap_0_ret_str);
 	foreign "C" printClosure(R1 "ptr"));
 
     IF_DEBUG(sanity,