mes: resurrect running MesCC: handle \t in strings.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 20 Nov 2017 22:22:53 +0000 (23:22 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 20 Nov 2017 22:22:53 +0000 (23:22 +0100)
* module/mes/read-0.mes (reader:read-string): Handle \t.  Fixex M1 output.

module/mes/read-0.mes

index dcadf77062f347b6dd378645fdc3070f86fcb48c..31a25ec16085b4dc0cfdd93a3f83c300b50b89eb 100644 (file)
        ((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)))))