Bugfix in regex printing: & operator.

* regex.c (print_rec): Fix checking arg1
for consp but accessing arg2.

1 files changed, 1 insertions, 1 deletions

diff --git a/regex.c b/regex.c
index fc31394c..f1f63873 100644
--- a/regex.c
+++ b/regex.c
@@ -2212,7 +2212,7 @@ static void print_rec(val exp, val stream, int *semi_flag)
     } else if (sym == and_s) {
       val arg1 = pop(&args);
       val arg2 = pop(&args);
-      if (consp(arg1) && car(arg2) == or_s)
+      if (consp(arg1) && car(arg1) == or_s)
         paren_print_rec(arg1, stream, semi_flag);
       else
         print_rec(arg1, stream, semi_flag);