From 61caae387027076b1723fd0c2e6cdddf545def47 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 7 Apr 2000 09:58:34 +0000
Subject: [PATCH] [project @ 2000-04-07 09:58:34 by sewardj] print(STAR)
 wibble.

---
 ghc/interpreter/storage.c |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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)) {
-- 
1.7.10.4