From: sewardj <unknown>
Date: Tue, 4 Apr 2000 11:24:48 +0000 (+0000)
Subject: [project @ 2000-04-04 11:24:48 by sewardj]
X-Git-Tag: Approximately_9120_patches~4838
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=985d30aa7ebccd4612e7ebb862777ee6d0306a5a;p=ghc-hetmet.git

[project @ 2000-04-04 11:24:48 by sewardj]
identToStr(): use whatIs(), not fst in switch.
---

diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c
index 8561d77..effd234 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.59 $
- * $Date: 2000/04/04 01:07:49 $
+ * $Revision: 1.60 $
+ * $Date: 2000/04/04 11:24:48 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -101,7 +101,7 @@ Cell v; {
     if (!isPair(v)) {
         internal("identToStr");
     }
-    switch (fst(v)) {
+    switch (whatIs(v)) {
         case VARIDCELL  :
         case VAROPCELL  : 
         case CONIDCELL  :