[project @ 2000-02-03 15:56:13 by sewardj]

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

diff --git a/ghc/interpreter/free.c b/ghc/interpreter/free.c
index 18966d9..f9750e0 100644 (file)
--- a/ghc/interpreter/free.c
+++ b/ghc/interpreter/free.c
@@ -2,13 +2,15 @@
 /* --------------------------------------------------------------------------
  * Free variable analysis
  *
- * Copyright (c) The University of Nottingham and Yale University, 1994-1997.
- * All rights reserved. See NOTICE for details and conditions of use etc...
- * Hugs version 1.4, December 1997
+ * The Hugs 98 system is Copyright (c) Mark P Jones, Alastair Reid, the
+ * Yale Haskell Group, and the Oregon Graduate Institute of Science and
+ * Technology, 1994-1999, All rights reserved.  It is distributed as
+ * free software under the license in the file "License", which is
+ * included in the distribution.
  *
  * $RCSfile: free.c,v $
- * $Revision: 1.5 $
- * $Date: 1999/10/15 11:02:09 $
+ * $Revision: 1.8 $
+ * $Date: 2000/02/03 13:55:21 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -90,6 +92,9 @@ static List freeVarsPrimAlt( List acc, StgPrimAlt alt )
 
 static List freeVarsExpr( List acc, StgExpr e )
 {
+#if 0
+    printf( "freeVarsExpr: " );ppStgExpr(e);printf("\n");
+#endif
     switch (whatIs(e)) {
     case LETREC:
             mapAccum(freeVarsBind,acc,stgLetBinds(e));
@@ -116,9 +121,9 @@ static List freeVarsExpr( List acc, StgExpr e )
     case NAME:
             return acc;  /* Names are never free vars */
     default:
-printf("\n");
-ppStgExpr(e);
-printf("\n");
+            printf("\n");
+            ppStgExpr(e);
+            printf("\n");
             internal("freeVarsExpr");
     }
 }