diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-08-31 14:47:48 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-08-31 14:47:48 -0700 |
commit | 7a4304462d4004d51f748ed83bb9e7dcd6a958cd (patch) | |
tree | 170932ba31cd0f9b20c566b041b96e0240b19cb9 /eval.c | |
parent | 0714b2d3316b4a15d2e74854951d31d8a9fd525e (diff) | |
download | txr-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.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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, |