Some fixes for 'read_'

ooichu · web-flow · commit e5b92ddd589a · 2023-02-10T10:52:01.000+03:00
Before this change, if the line break was `\r`, comments didn't work correctly. Fixed a bug in `read_`, now you can add a '\' character before 'n', 'r', 't'.
diff --git a/src/fe.c b/src/fe.c
@@ -474,7 +474,7 @@ static fe_Object* read_(fe_Context *ctx, fe_ReadFn fn, void *udata) {
       return NULL;
 
     case ';':
-      while (chr && chr != '\n') { chr = fn(ctx, udata); }
+      while (chr && chr != '\n' && chr != '\r') { chr = fn(ctx, udata); }
       return read_(ctx, fn, udata);
 
     case ')':
@@ -513,7 +513,7 @@ static fe_Object* read_(fe_Context *ctx, fe_ReadFn fn, void *udata) {
         if (chr == '\0') { fe_error(ctx, "unclosed string"); }
         if (chr == '\\') {
           chr = fn(ctx, udata);
-          if (strchr("nrt", chr)) { chr = strchr("n\nr\rt\t", chr)[1]; }
+          if (strchr("\\nrt", chr)) { chr = strchr("\\\\n\nr\rt\t", chr)[1]; }
         }
         v = buildstring(ctx, v, chr);
         chr = fn(ctx, udata);
