1 files changed, 14 insertions, 11 deletions
diff --git a/parser.l b/parser.l
index 70c21d79..9036278f 100644
--- a/parser.l
+++ b/parser.l
@@ -49,6 +49,7 @@
 #include "hash.h"
 #include "parser.h"
 #include "eval.h"
+#include "txr.h"
 #include "y.tab.h"
 
 #define YY_INPUT(buf, result, max_size)           \
@@ -198,6 +199,8 @@ WS      [\t ]*
 HEX     [0-9A-Fa-f]
 OCT     [0-7]
 
+REGOP   [/()|.*?+~&%\[\]\-]
+
 ASC     [\x00-\x7f]
 ASCN    [\x00-\t\v-\x7f]
 U       [\x80-\xbf]
@@ -741,24 +744,24 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
   return ERRTOK;
 }
 
-<REGEX>[.*?+~&%] {
+<REGEX>{REGOP} {
   yylval->chr = yytext[0];
   return yytext[0];
 }
 
-<REGEX>[\[\]\-] {
-  yylval->chr = yytext[0];
-  return yytext[0];
-}
-
-<REGEX>[()|] {
-  yylval->chr = yytext[0];
-  return yytext[0];
+<REGEX>[\\]{REGOP} {
+  yylval->chr = yytext[1];
+  return REGCHAR;
 }
 
 <REGEX>[\\]. {
-  yylval->chr = yytext[1];
-  return REGCHAR;
+  if (opt_compat && opt_compat <= 105) {
+    yylval->chr = yytext[1];
+    return REGCHAR;
+  }
+    
+  yyerrprepf(yyg, lit("unrecognized escape in regex"), nao);
+  return ERRTOK;
 }
 
 <REGEX>[\\] {