From: sewardj <unknown>
Date: Wed, 27 Oct 1999 11:57:32 +0000 (+0000)
Subject: [project @ 1999-10-27 11:57:32 by sewardj]
X-Git-Tag: Approximately_9120_patches~5657
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a36e274c7a5e8094c8667f20f7f44c00a48fe121;p=ghc-hetmet.git

[project @ 1999-10-27 11:57:32 by sewardj]
remove debug printing -- wibble
---

diff --git a/ghc/interpreter/translate.c b/ghc/interpreter/translate.c
index 2c2717e..7f11faa 100644
--- a/ghc/interpreter/translate.c
+++ b/ghc/interpreter/translate.c
@@ -10,8 +10,8 @@
  * included in the distribution.
  *
  * $RCSfile: translate.c,v $
- * $Revision: 1.11 $
- * $Date: 1999/10/26 17:27:36 $
+ * $Revision: 1.12 $
+ * $Date: 1999/10/27 11:57:32 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -996,7 +996,7 @@ Void implementForeignExport ( Name n )
              );
 
     v = mkStgVar(fun,NIL);
-    ppStg(v);
+    /* ppStg(v); */
 
     name(n).defn     = NIL;    
     name(n).stgVar   = v;