From: andy <unknown>
Date: Mon, 3 Apr 2000 23:43:13 +0000 (+0000)
Subject: [project @ 2000-04-03 23:43:13 by andy]
X-Git-Tag: Approximately_9120_patches~4845
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a84e2d973928854935b3bc1f498fd81ed17f6483;p=ghc-hetmet.git

[project @ 2000-04-03 23:43:13 by andy]
Fixing problem withn "Prelude> take.P" which was causing Hugs to crash.
The new abstraction for the Text segment was not being observed.
---

diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c
index ee0363b..efc5e47 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.57 $
- * $Date: 2000/03/31 04:13:27 $
+ * $Revision: 1.58 $
+ * $Date: 2000/04/03 23:43:13 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -105,7 +105,7 @@ Cell v; {
         case VARIDCELL  :
         case VAROPCELL  : 
         case CONIDCELL  :
-        case CONOPCELL  : return text+textOf(v);
+        case CONOPCELL  : return textToStr(textOf(v));
 
         case QUALIDENT  : {   String qmod = textToStr(qmodOf(v));
 	                      String qtext = textToStr(qtextOf(v));