shithub: femtolisp

Info  •  Files  •  Log

disallow invalid escape sequences (modified patch from Julia)

--- a/read.c

+++ b/read.c

@@ -552,7 +552,12 @@

                     i += u8_wc_toutf8(&buf[i], wc);

             }

             else {

-                buf[i++] = read_escape_control_char((char)c);

+                char esc = read_escape_control_char((char)c);

+                if (esc == (char)c && !strchr("\\'\"`", esc)) {

+                    free(buf);

+                    lerrorf(ParseError, "read: invalid escape sequence: \\%c", (char)c);

+                }

+                buf[i++] = esc;

             }

         }

         else {