From: sewardj <unknown>
Date: Thu, 25 Nov 1999 12:12:25 +0000 (+0000)
Subject: [project @ 1999-11-25 12:12:25 by sewardj]
X-Git-Tag: Approximately_9120_patches~5483
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6ff69b65c05b76f6631fec688eb265cd39e2c5d1;p=ghc-hetmet.git

[project @ 1999-11-25 12:12:25 by sewardj]
Remove debugging printf in findQualifier().
---

diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c
index 903296e..8dd64a2 100644
--- a/ghc/interpreter/storage.c
+++ b/ghc/interpreter/storage.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: storage.c,v $
- * $Revision: 1.17 $
- * $Date: 1999/11/17 16:57:46 $
+ * $Revision: 1.18 $
+ * $Date: 1999/11/25 12:12:25 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -965,7 +965,6 @@ Cell c; {
 static local Module findQualifier(t)    /* locate Module in import list   */
 Text t; {
     Module ms;
-printf ( "findQualifier %s\n", textToStr(t));
     for (ms=module(currentModule).qualImports; nonNull(ms); ms=tl(ms)) {
         if (textOf(fst(hd(ms)))==t)
             return snd(hd(ms));