From 3b7f7ef0422537391879d356e61baa50f74483a1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 6 Feb 2015 07:13:24 -0800 Subject: Serious bugfix in the op macro, and derived macro, in the handling of missing meta-numbers (for instance (op ... @1 .. @3): 1 and 3 occur, but not 2. * eval.c (supplement_op_syms): Bugfix: loop was testing and updating the wrong variable, causing it to be looking at the first element of the syms list in every iteration. Not a regression: this was implemented wrong when the function was introduced on October 6, 2013. --- eval.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 87616a08..7e27c962 100644 --- a/eval.c +++ b/eval.c @@ -2542,9 +2542,7 @@ static val supplement_op_syms(val ssyms, val max) list_collect_decl (outsyms, tl); val si, ni; - for (si = ssyms, ni = one; - ssyms; - ni = plus(ni, one), ssyms = cdr(ssyms)) + for (si = ssyms, ni = one; si; ni = plus(ni, one), si = cdr(si)) { val entry = car(si); val num = car(entry); -- cgit v1.2.3