From 4b0d52ebd7397842d75bab41871bcde1ab6cb9cb Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 5 Jan 2000 13:53:37 +0000
Subject: [project @ 2000-01-05 13:53:36 by sewardj] Fix some serious errors in
 the handling of instances in interfaces.

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

(limited to 'ghc/interpreter/storage.c')

diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c
index f4380ed239..44d464d52f 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.28 $
- * $Date: 1999/12/20 16:55:27 $
+ * $Revision: 1.29 $
+ * $Date: 2000/01/05 13:53:37 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -312,7 +312,7 @@ Text unZcodeThenFindText ( String s )
             if (*s != 'T') goto parse_error;
             s++;
             p[n++] = '(';
-            while (i > 0) { p[n++] = ','; i--; };
+            while (i >= 0) { p[n++] = ','; i--; };
             p[n++] = ')';
             break;
          default: 
-- 
cgit v1.2.1