From: sewardj <unknown>
Date: Fri, 7 Apr 2000 09:58:34 +0000 (+0000)
Subject: [project @ 2000-04-07 09:58:34 by sewardj]
X-Git-Tag: Approximately_9120_patches~4781
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=61caae387027076b1723fd0c2e6cdddf545def47;p=ghc-hetmet.git

[project @ 2000-04-07 09:58:34 by sewardj]
print(STAR) wibble.
---

diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c
index b044a2f..06037e4 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.66 $
- * $Date: 2000/04/06 15:05:30 $
+ * $Revision: 1.67 $
+ * $Date: 2000/04/07 09:58:34 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -2200,7 +2200,7 @@ Void print ( Cell c, Int depth )
     else if (isTagNonPtr(c)) {
         Printf("TagNP(%d)", c);
     }
-    else if (isSpec(c)) {
+    else if (isSpec(c) && c != STAR) {
         Printf("TagS(%d)", c);
     }
     else if (isText(c)) {