From 7a4304462d4004d51f748ed83bb9e7dcd6a958cd Mon Sep 17 00:00:00 2001 From: Kaz Kylheku 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). --- ChangeLog | 6 ++++++ eval.c | 2 ++ 2 files changed, 8 insertions(+) diff --git a/ChangeLog b/ChangeLog index c692db9a..75a0558e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2012-08-31 Kaz Kylheku + + * eval.c (expand): Bugfix: failure to handle regular + expression syntax, resulting in (set ...) syntax being regarded as + assignment (due to another recent change). + 2012-08-30 Kaz Kylheku * txr.1: Documented chain, andf, orf and iff. 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