[project @ 2001-01-17 15:11:04 by simonmar]

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

diff --git a/ghc/interpreter/free.c b/ghc/interpreter/free.c
index f9750e0..08d0a33 100644 (file)
--- a/ghc/interpreter/free.c
+++ b/ghc/interpreter/free.c
@@ -9,13 +9,12 @@
  * included in the distribution.
  *
  * $RCSfile: free.c,v $
- * $Revision: 1.8 $
- * $Date: 2000/02/03 13:55:21 $
+ * $Revision: 1.12 $
+ * $Date: 2000/04/27 16:35:29 $
  * ------------------------------------------------------------------------*/
 
-#include "prelude.h"
+#include "hugsbasictypes.h"
 #include "storage.h"
-#include "backend.h"
 #include "connect.h"
 #include "errors.h"
 
@@ -24,11 +23,11 @@
  * Local functions
  * ------------------------------------------------------------------------*/
 
-static List freeVarsAlt     Args((List, StgCaseAlt));
-static List freeVarsPrimAlt Args((List, StgPrimAlt));
-static List freeVarsExpr    Args((List, StgExpr));
-static List freeVarsAtom    Args((List, StgAtom));
-static List freeVarsVar     Args((List, StgVar));
+static List freeVarsAlt     ( List, StgCaseAlt );
+static List freeVarsPrimAlt ( List, StgPrimAlt );
+static List freeVarsExpr    ( List, StgExpr );
+static List freeVarsAtom    ( List, StgAtom );
+static List freeVarsVar     ( List, StgVar );
 
 /* --------------------------------------------------------------------------
  * Free variable analysis
@@ -119,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");