From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 20 Jan 2017 09:44:58 +0000 (-0800)
Subject: Implement #\alarm and change #\u+00 to print as #\null.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~101
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1d9cb8f86630e4d76e19dd10c67fba55fdd7988c;p=mit-scheme.git

Implement #\alarm and change #\u+00 to print as #\null.
---

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index 754c7297a..1ac8103ee 100644
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -295,14 +295,14 @@ USA.
 	 (cadr entry))))
 
 (define named-codes
-  '((#x00 #f "null" "nul")
+  '((#x00 "null" "nul")
     (#x01 #f "soh")
     (#x02 #f "stx")
     (#x03 #f "etx")
     (#x04 #f "eot")
     (#x05 #f "enq")
     (#x06 #f "ack")
-    (#x07 #f "bel")
+    (#x07 "alarm" "bel")
     (#x08 "backspace" "bs")
     (#x09 "tab" "ht")
     (#x0A "newline" "linefeed" "lfd" "lf")
@@ -332,16 +332,16 @@ USA.
     (#xA0 "nbsp")
     (#xFEFF "bom")))
 
-(define named-bits
-  '((#x01 "M" "meta")
-    (#x02 "C" "control" "ctrl")
-    (#x04 "S" "super")
-    (#x08 "H" "hyper")))
-
 (define char-bit:meta #x01)
 (define char-bit:control #x02)
 (define char-bit:super #x04)
 (define char-bit:hyper #x08)
+
+(define named-bits
+  `((,char-bit:meta "M" "meta")
+    (,char-bit:control "C" "control" "ctrl")
+    (,char-bit:super "S" "super")
+    (,char-bit:hyper "H" "hyper")))
 
 ;;;; Unicode characters