diff options
| author | sewardj <unknown> | 2000-01-05 13:53:37 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-05 13:53:37 +0000 |
| commit | 4b0d52ebd7397842d75bab41871bcde1ab6cb9cb (patch) | |
| tree | 9ff6172e4cdd0aaa68d29b72fc38ae1707f74da5 /ghc/interpreter/storage.c | |
| parent | 613c0042a759afde1e699e6fa4462549c9d20ed2 (diff) | |
| download | haskell-4b0d52ebd7397842d75bab41871bcde1ab6cb9cb.tar.gz | |
[project @ 2000-01-05 13:53:36 by sewardj]
Fix some serious errors in the handling of instances in interfaces.
Diffstat (limited to 'ghc/interpreter/storage.c')
| -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 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: |