From 4d2936c069f23c070e2bc74ec09f31e9635687dd Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 22 Nov 1999 16:16:35 +0000
Subject: [PATCH] [project @ 1999-11-22 16:16:35 by sewardj] Convert some
 DEBUG_EXTRAs into DEBUGs.

---
 ghc/rts/Printer.c |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 8be29aa..a6e0c4c 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.15 1999/07/14 13:44:19 simonmar Exp $
+ * $Id: Printer.c,v 1.16 1999/11/22 16:16:35 sewardj Exp $
  *
  * Copyright (c) 1994-1999.
  *
@@ -310,7 +310,7 @@ StgPtr printStackObj( StgPtr sp )
 
     if (IS_ARG_TAG(*sp)) {
 
-#ifdef DEBUG_EXTRA
+#ifdef DEBUG
         StackTag tag = (StackTag)*sp;
         switch ( tag ) {
         case ILLEGAL_TAG:
@@ -345,7 +345,7 @@ StgPtr printStackObj( StgPtr sp )
         }
         sp += 1 + ARG_SIZE(tag);
 
-#else /* !DEBUG_EXTRA */
+#else /* !DEBUG */
 	{
 	    StgWord tag = *sp++;
 	    nat i;
-- 
1.7.10.4