From 7a4304462d4004d51f748ed83bb9e7dcd6a958cd Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 31 Aug 2012 14:47:48 -0700
Subject: * eval.c (expand): Bugfix: failure to handle regular expression
 syntax, resulting in (set ...) syntax being regarded as assignment (due to
 another recent change).

---
 eval.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index b51adaac..ca7c51ec 100644
--- a/eval.c
+++ b/eval.c
@@ -1726,6 +1726,8 @@ val expand(val form)
       return expand_op(rest(form));
     } else if (sym == catch_s) {
       return expand_catch(rest(form));
+    } else if (sym == regex_s || regexp(sym)) {
+      return form;
     } else {
       /* funtion call
          also handles: progn, prog1, call, if, and, or, 
-- 
cgit v1.2.3