* module/mes/display.mes (display): Display escaped characters.
(cond ((and write? (or (eq? x #\") (eq? x #\\)))
(write-char #\\ port)
(write-char x port))
(cond ((and write? (or (eq? x #\") (eq? x #\\)))
(write-char #\\ port)
(write-char x port))
+ ((and write? (eq? x #\nul))
+ (write-char #\\ port)
+ (write-char #\0 port))
+ ((and write? (eq? x #\alarm))
+ (write-char #\\ port)
+ (write-char #\a port))
+ ((and write? (eq? x #\backspace))
+ (write-char #\\ port)
+ (write-char #\b port))
+ ((and write? (eq? x #\tab))
+ (write-char #\\ port)
+ (write-char #\t port))
((and write? (eq? x #\newline))
(write-char #\\ port)
(write-char #\n port))
((and write? (eq? x #\newline))
(write-char #\\ port)
(write-char #\n port))
+ ((and write? (eq? x #\vtab))
+ (write-char #\\ port)
+ (write-char #\v port))
+ ((and write? (eq? x #\page))
+ (write-char #\\ port)
+ (write-char #\f port))
(#t (write-char x port))))
(define (d x cont? sep)
(#t (write-char x port))))
(define (d x cont? sep)