From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 30 Jan 2017 09:41:13 +0000 (-0800)
Subject: Change bucky-bit prefixes to prefer upper-case for output.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~18
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=132900c9818fc329bdef0330459abb9e893822d7;p=mit-scheme.git

Change bucky-bit prefixes to prefer upper-case for output.

Also make sure that upper-case is accepted when case-folding is off.
---

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index aee593767..d4aac5b26 100644
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -295,10 +295,10 @@ USA.
 (define char-bit:hyper #x08)
 
 (define named-bits
-  `((,char-bit:hyper "h-" "hyper-")
-    (,char-bit:super "s-" "super-")
-    (,char-bit:meta "m-" "meta-")
-    (,char-bit:control "c-" "control-" "ctrl-")))
+  `((,char-bit:hyper "H-" "h-" "hyper-")
+    (,char-bit:super "S-" "s-" "super-")
+    (,char-bit:meta "M-" "m-" "meta-")
+    (,char-bit:control "C-" "c-" "control-" "ctrl-")))
 
 (define (match-named-code string fold-case?)
   (let ((match? (if fold-case? ustring-ci=? ustring=?)))