* Hugs version 1.4, December 1997
*
* $RCSfile: stg.c,v $
- * $Revision: 1.4 $
- * $Date: 1999/03/01 14:46:53 $
+ * $Revision: 1.5 $
+ * $Date: 1999/03/09 14:51:13 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
* Hugs version 1.4, December 1997
*
* $RCSfile: stg.c,v $
- * $Revision: 1.4 $
- * $Date: 1999/03/01 14:46:53 $
+ * $Revision: 1.5 $
+ * $Date: 1999/03/09 14:51:13 $
* ------------------------------------------------------------------------*/
/* --------------------------------------------------------------------------
Void ppStgAlts( List alts )
{
- if (debugCode) {
+ if (1 /*debugCode*/ ) {
beginStgPP(stdout);
putStgAlts(0,alts);
endStgPP(stdout);
extern Void ppStgPrimAlts( List alts )
{
- if (debugCode) {
+ if (1 /*debugCode*/ ) {
beginStgPP(stdout);
putStgPrimAlts(0,alts);
endStgPP(stdout);
extern Void ppStgVars( List vs )
{
- if (debugCode) {
+ if (1 /*debugCode*/ ) {
beginStgPP(stdout);
printf("Vars: ");
putStgVars(vs);