From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 22 Jul 2010 17:24:45 +0000 (+0000)
Subject: Kludgily use a few unsigned chars in uxutil.c for tolower &c.
X-Git-Tag: 20101212-Gtk~143
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b29bbb693931586dc909aa1e76c29d69d3d026ac;p=mit-scheme.git

Kludgily use a few unsigned chars in uxutil.c for tolower &c.
---

diff --git a/src/microcode/uxutil.c b/src/microcode/uxutil.c
index 2de3ff877..029105b97 100644
--- a/src/microcode/uxutil.c
+++ b/src/microcode/uxutil.c
@@ -182,7 +182,7 @@ userio_choose_option (const char * herald,
       fputs (prompt, stdout);
       fflush (stdout);
       {
-	char command = (userio_read_char_raw ());
+	unsigned char command = ((unsigned char) (userio_read_char_raw ()));
 	if ((command == '\0') && (errno != 0))
 	  return (command);
 	putc ('\n', stdout);
@@ -197,7 +197,7 @@ userio_choose_option (const char * herald,
 	      if (choice == 0)
 		break;
 	      {
-		char option = (*choice);
+		unsigned char option = (*choice);
 		if (islower (option))
 		  option = (toupper (option));
 		if (command == option)