From a84e2d973928854935b3bc1f498fd81ed17f6483 Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Mon, 3 Apr 2000 23:43:13 +0000
Subject: [PATCH] [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.
---
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 ee0363bf2e8e..efc5e47f44e9 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));
--
GitLab