From 132900c9818fc329bdef0330459abb9e893822d7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 30 Jan 2017 01:41:13 -0800
Subject: [PATCH] Change bucky-bit prefixes to prefer upper-case for output.

Also make sure that upper-case is accepted when case-folding is off.
---
 src/runtime/char.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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=?)))
-- 
2.25.1