R7RS: Add #\null -> #\nul and #\escape -> #\esc.

cisco · Jun 22, 2018 · 1d20448 · 1d20448
1 parent 9e180cf
commit 1d20448
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/s/read.ss b/s/read.ss
@@ -1847,9 +1847,11 @@
   (char-name 'newline #\newline) ; must come after linefeed entry
   (char-name 'backspace #\backspace)
   (char-name 'rubout #\rubout)
+  (char-name 'null #\nul)
   (char-name 'nul #\nul)
   (char-name 'bel #\bel)
   (char-name 'vt #\vt)
+  (char-name 'escape #\esc)
   (char-name 'esc #\esc)
   (char-name 'vtab #\vtab)
   (char-name 'delete #\rubout)