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.

diff --git a/module/mes/read-0-32.mo b/module/mes/read-0-32.mo
index 2d544ea1177150552a2b96aa03fd1c404a0ccdbc..2d87e3478ef65e3b7fe801f6b2dc3c5beaf01645 100644 (file)
Binary files a/module/mes/read-0-32.mo and b/module/mes/read-0-32.mo differ

diff --git a/module/mes/read-0.mes b/module/mes/read-0.mes
index 7dab5d84cb1154831f2114b235d713b8701f5746..cbaeb022c7d0c9a4f809fe3274e327ad80181345 100644 (file)
--- 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))))