[project @ 2000-06-23 12:09:00 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / stgSubst.c

diff --git a/ghc/interpreter/stgSubst.c b/ghc/interpreter/stgSubst.c
index ac52b59..07c3d3e 100644 (file)
--- a/ghc/interpreter/stgSubst.c
+++ b/ghc/interpreter/stgSubst.c
@@ -9,11 +9,11 @@
  * included in the distribution.
  *
  * $RCSfile: stgSubst.c,v $
- * $Revision: 1.7 $
- * $Date: 2000/03/10 20:03:36 $
+ * $Revision: 1.9 $
+ * $Date: 2000/04/28 13:03:47 $
  * ------------------------------------------------------------------------*/
 
-#include "prelude.h"
+#include "hugsbasictypes.h"
 #include "storage.h"
 #include "connect.h"
 #include "errors.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");