From 7f5f6b9bd9d5443c95888ebdd2726f7fb45f9b20 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 29 Sep 2015 06:03:53 -0700 Subject: Regex printer fails on \w, \s or \d in char class. regex.c (print_rec): Bugfix: handle symbols in character class syntax. --- regex.c | 2 ++ 1 file changed, 2 insertions(+) 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); } -- cgit v1.2.3