X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Finterpreter%2Ffree.c;h=08d0a33e0f567cf06bcfb0500c030e3491adac09;hb=70bf5e07c7b8679b5bb267d79049dbfc28be7930;hp=9c85523fe2b282d2ba0289686a75e21bca934887;hpb=e3bb5d64a61847a306ef38f14b39768adb721cf6;p=ghc-hetmet.git

diff --git a/ghc/interpreter/free.c b/ghc/interpreter/free.c
index 9c85523..08d0a33 100644
--- a/ghc/interpreter/free.c
+++ b/ghc/interpreter/free.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: free.c,v $
- * $Revision: 1.11 $
- * $Date: 2000/03/23 14:54:21 $
+ * $Revision: 1.12 $
+ * $Date: 2000/04/27 16:35:29 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -118,6 +118,7 @@ static List freeVarsExpr( List acc, StgExpr e )
     case STGVAR:
             return freeVarsVar(acc, e);
     case NAME:
+    case TUPLE:
             return acc;  /* Names are never free vars */
     default:
             printf("\n");