summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-08-31 14:47:48 -0700
committerKaz Kylheku <kaz@kylheku.com>2012-08-31 14:47:48 -0700
commit7a4304462d4004d51f748ed83bb9e7dcd6a958cd (patch)
tree170932ba31cd0f9b20c566b041b96e0240b19cb9 /eval.c
parent0714b2d3316b4a15d2e74854951d31d8a9fd525e (diff)
downloadtxr-7a4304462d4004d51f748ed83bb9e7dcd6a958cd.tar.gz
txr-7a4304462d4004d51f748ed83bb9e7dcd6a958cd.tar.bz2
txr-7a4304462d4004d51f748ed83bb9e7dcd6a958cd.zip
* eval.c (expand): Bugfix: failure to handle regular
expression syntax, resulting in (set ...) syntax being regarded as assignment (due to another recent change).
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c2
1 files changed, 2 insertions, 0 deletions
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,