/* --------------------------------------------------------------------------
* 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.4 $
- * $Date: 1999/04/27 10:06:52 $
+ * $Revision: 1.8 $
+ * $Date: 2000/02/03 13:55:21 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
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));
case NAME:
return acc; /* Names are never free vars */
default:
-printf("\n\n");
-ppStgExpr(e);
-printf("\n");
+ printf("\n");
+ ppStgExpr(e);
+ printf("\n");
internal("freeVarsExpr");
}
}