mes: Support #\cr short form in reader.

* module/mes/read-0.mes (read-character): Support #\cr short form for #\return. * module/mes/read-0-32.mo: Regenerate.
2017-05-06 22:49:08 +02:00 · 2017-05-06 22:49:08 +02:00 · 529ab8caa1
parent 073f886203
commit 529ab8caa1
2 changed files with 1 additions and 0 deletions
--- a/module/mes/read-0-32.mo
+++ b/module/mes/read-0-32.mo
--- a/module/mes/read-0.mes
+++ b/module/mes/read-0.mes
@ -222,6 +222,7 @@
                               (batv . 11)
                               (egap . 12)
                               (nruter . 13)
+                               (rc . 13)
                               (ecaps . 32)))) => cdr)
              (#t (error (quote char-not-supported) n))))
      (if (not (or (eq? p 42) (and (> p 96) (< p 123)))) (integer->char (lookup-char (list->symbol (cons (integer->char c) n))))