diff options
| author | sewardj <unknown> | 2000-01-06 16:33:10 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-06 16:33:10 +0000 |
| commit | 3d605c0aa38c6fb4a66af0b4b089ef41264a762b (patch) | |
| tree | 86c4899dfec10f4250c7be7aeb60202672c9b676 /ghc/interpreter/storage.c | |
| parent | a7c9eb860b148e93593cf01b39ea6a3d9af1f01b (diff) | |
| download | haskell-3d605c0aa38c6fb4a66af0b4b089ef41264a762b.tar.gz | |
[project @ 2000-01-06 16:33:10 by sewardj]
Update Hugs' knowledge of the GHC Prelude to track recent Prelude changes.
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 bc7c877c94..b26e386710 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.30 $ - * $Date: 2000/01/05 15:57:41 $ + * $Revision: 1.31 $ + * $Date: 2000/01/06 16:33:10 $ * ------------------------------------------------------------------------*/ #include "prelude.h" @@ -812,7 +812,7 @@ Tycon addTupleTycon ( Int n ) if (tycon(i).tuple == n) return i; if (combined) - m = findFakeModule(findText(n==0 ? "PrelBase" : "PrelTup")); else + m = findFakeModule(findText(n<=1 ? "PrelBase" : "PrelTup")); else m = findModule(findText("Prelude")); setCurrModule(m); |