From 2707a8937c4b3f969e57f8ab599269feb693e903 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 25 Sep 2016 10:10:05 -0700
Subject: Bugfix in regex printing: & operator.

* regex.c (print_rec): Fix checking arg1
for consp but accessing arg2.
---
 regex.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
cgit v1.2.3