From 6ff69b65c05b76f6631fec688eb265cd39e2c5d1 Mon Sep 17 00:00:00 2001 From: sewardj Date: Thu, 25 Nov 1999 12:12:25 +0000 Subject: [PATCH] [project @ 1999-11-25 12:12:25 by sewardj] Remove debugging printf in findQualifier(). --- ghc/interpreter/storage.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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)); -- 1.7.10.4