[project @ 2005-04-27 09:48:34 by simonmar]

[ghc-hetmet.git] / ghc / rts / Apply.cmm

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 1fe444e..e4197ec 100644 (file)
--- 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,