From 9fabcf6f295bcd8676dda77e74e8fc605f5df1f6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 28 Jan 2015 19:01:31 -0800 Subject: * eval.c (bind_macro_params): Bugfix: the colon argument's special meaning "treat the argument as missing" must apply only to optional parameters. --- ChangeLog | 6 ++++++ eval.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 43a0b236..d197bbf6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2015-01-28 Kaz Kylheku + + * eval.c (bind_macro_params): Bugfix: the colon argument's special + meaning "treat the argument as missing" must apply only to optional + parameters. + 2015-01-27 Kaz Kylheku * lib.c (make_like): Fix regression introduced in 102. diff --git a/eval.c b/eval.c index 8a795f12..8bc38a4b 100644 --- a/eval.c +++ b/eval.c @@ -791,7 +791,7 @@ static val bind_macro_params(val env, val menv, val params, val form, } if (consp(form)) { - if (car(form) == colon_k) { + if (optargs && car(form) == colon_k) { form = cdr(form); goto noarg; } -- cgit v1.2.3