projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-01-04 10:48:46 by simonmar]
[ghc-hetmet.git]
/
ghc
/
interpreter
/
stgSubst.c
diff --git
a/ghc/interpreter/stgSubst.c
b/ghc/interpreter/stgSubst.c
index
98b92f1
..
07c3d3e
100644
(file)
--- a/
ghc/interpreter/stgSubst.c
+++ b/
ghc/interpreter/stgSubst.c
@@
-9,8
+9,8
@@
* included in the distribution.
*
* $RCSfile: stgSubst.c,v $
* 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"
* ------------------------------------------------------------------------*/
#include "hugsbasictypes.h"
@@
-107,6
+107,7
@@
StgExpr substExpr( List sub, StgExpr e )
break;
case STGVAR:
case NAME:
break;
case STGVAR:
case NAME:
+ case TUPLE:
return substVar(sub,e);
default:
internal("substExpr");
return substVar(sub,e);
default:
internal("substExpr");