From 7fb74feb46b108eb8eaa2ef164aace29ea768314 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 20 Nov 2017 23:22:53 +0100 Subject: [PATCH] mes: resurrect running MesCC: handle \t in strings. * module/mes/read-0.mes (reader:read-string): Handle \t. Fixex M1 output. --- module/mes/read-0.mes | 3 +++ 1 file changed, 3 insertions(+) diff --git a/module/mes/read-0.mes b/module/mes/read-0.mes index dcadf770..31a25ec1 100644 --- a/module/mes/read-0.mes +++ b/module/mes/read-0.mes @@ -273,6 +273,9 @@ ((and (eq? c 92) (eq? p 110)) (read-byte) (reader:read-string (read-byte) (peek-byte) (append-char s 10))) + ((and (eq? c 92) (eq? p 116)) + (read-byte) + (reader:read-string (read-byte) (peek-byte) (append-char s 9))) ((eq? c 34) s) ((eq? c -1) (error (quote EOF-in-string) (cons c s))) (#t (reader:read-string (read-byte) (peek-byte) (append-char s c)))))