From 5f9fd6726e36b4746acb5a098d5c1c2582c19d91 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 12 Jan 2016 05:37:55 -0800
Subject: regex_print: [ and ] in char class must be escaped.

* regex.c (print_class_char): Add missing character cases.
---
 regex.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'regex.c')

diff --git a/regex.c b/regex.c
index a1294ca9..4d6a60eb 100644
--- a/regex.c
+++ b/regex.c
@@ -2037,7 +2037,7 @@ static void print_class_char(val ch, val first_p, val stream)
     if (!first_p)
       break;
     /* fallthrough */
-  case '-':
+  case '-': case '[': case ']':
     put_char(chr('\\'), stream);
     break;
   }
-- 
cgit v1.2.3