From: sewardj <unknown>
Date: Fri, 28 Apr 2000 13:03:47 +0000 (+0000)
Subject: [project @ 2000-04-28 13:03:47 by sewardj]
X-Git-Tag: Approximately_9120_patches~4581
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=620664dac19b0d337bce319e0631abb2f04da8ab

[project @ 2000-04-28 13:03:47 by sewardj]
Handle TUPLE in substExpr().
---

diff --git a/ghc/interpreter/stgSubst.c b/ghc/interpreter/stgSubst.c
index 98b92f1..07c3d3e 100644
--- a/ghc/interpreter/stgSubst.c
+++ b/ghc/interpreter/stgSubst.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: stgSubst.c,v $
- * $Revision: 1.8 $
- * $Date: 2000/03/23 14:54:21 $
+ * $Revision: 1.9 $
+ * $Date: 2000/04/28 13:03:47 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -107,6 +107,7 @@ StgExpr substExpr( List sub, StgExpr e )
             break;
     case STGVAR:
     case NAME:
+    case TUPLE:
             return substVar(sub,e);
     default:
             internal("substExpr");