From d1a64d890f16fccc1ce9c924fe0f5b1e81689b1c Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 18 Aug 2010 16:30:25 +0000
Subject: [PATCH] Add a couple more consts to debug.c.

---
 src/microcode/debug.c  | 4 ++--
 src/microcode/extern.h | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index 39e93943e..98d60efb5 100644
--- a/src/microcode/debug.c
+++ b/src/microcode/debug.c
@@ -178,7 +178,7 @@ print_return_name (outf_channel stream, SCHEME_OBJECT Ptr)
 }
 
 void
-Print_Return (char * String)
+Print_Return (const char * String)
 {
   outf_error ("%s: ", String);
   print_return_name (ERROR_OUTPUT, GET_RET);
@@ -826,7 +826,7 @@ find_flag (int flag_number)
     }
 }
 
-static char *
+static const char *
 flag_name (int flag_number)
 {
   switch (flag_number)
diff --git a/src/microcode/extern.h b/src/microcode/extern.h
index 73554f60b..4d0b24918 100644
--- a/src/microcode/extern.h
+++ b/src/microcode/extern.h
@@ -350,7 +350,7 @@ extern void Back_Trace (outf_channel);
 extern void Debug_Stack_Trace (void);
 extern void Debug_Print (SCHEME_OBJECT, bool);
 extern void Show_Env (SCHEME_OBJECT);
-extern void Print_Return (char *);
+extern void Print_Return (const char *);
 extern void Print_Expression (SCHEME_OBJECT, const char *);
 extern void Print_Primitive (SCHEME_OBJECT);
 
-- 
2.25.1