diff options
| -rw-r--r-- | ghc/interpreter/storage.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c index c1497a617f..01fa0146d2 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.55 $ - * $Date: 2000/03/24 14:32:03 $ + * $Revision: 1.56 $ + * $Date: 2000/03/30 09:02:12 $ * ------------------------------------------------------------------------*/ #include "hugsbasictypes.h" @@ -1609,7 +1609,7 @@ void nukeModule ( Module m ) ObjectCode* oc2; Int i; assert(isModule(m)); -fprintf(stderr, "NUKEMODULE `%s'\n", textToStr(module(m).text)); +/*fprintf(stderr, "NUKEMODULE `%s'\n", textToStr(module(m).text)); */ oc = module(m).object; while (oc) { oc2 = oc->next; |