Regex printer fails on \w, \s or \d in char class.

regex.c (print_rec): Bugfix: handle symbols in character
class syntax.

1 files changed, 2 insertions, 0 deletions

diff --git a/regex.c b/regex.c
index d2b75dfd..baa1d27e 100644
--- a/regex.c
+++ b/regex.c
@@ -2041,6 +2041,8 @@ static void print_rec(val exp, val stream)
           print_class_char(car(arg), first_p, stream);
           put_char(chr('-'), stream);
           print_class_char(cdr(arg), nil, stream);
+        } else if (symbolp(arg)) {
+          print_rec(arg, stream);
         } else {
           print_class_char(arg, first_p, stream);
         }