diff options
| author | andy <unknown> | 2000-04-03 23:43:13 +0000 |
|---|---|---|
| committer | andy <unknown> | 2000-04-03 23:43:13 +0000 |
| commit | a84e2d973928854935b3bc1f498fd81ed17f6483 (patch) | |
| tree | 107a1ba9a8f3dbe93a74c2a02fa625380d43df6f | |
| parent | 6607cefc95a9ab20d32d677978c02897d5d9e20a (diff) | |
| download | haskell-a84e2d973928854935b3bc1f498fd81ed17f6483.tar.gz | |
[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.
| -rw-r--r-- | ghc/interpreter/storage.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c index ee0363bf2e..efc5e47f44 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)); |