diff options
| -rw-r--r-- | ChangeLog | 11 | ||||
| -rw-r--r-- | eval.c | 4 |
2 files changed, 14 insertions, 1 deletions
@@ -1,5 +1,16 @@ 2013-10-27 Kaz Kylheku <kaz@kylheku.com> + Fix 2013-10-06 regression in op syntax. This happens when a @var + syntax appears in an op form, crashing the expander with infinite + recursion at program load time, before the code is run. + + * eval.c (transform_op): The fi == var check to handle a + trailing op variable in the dot position of a form + needs to ensure that it really is @<num> type var, and + not the @<sym> type for instance. + +2013-10-27 Kaz Kylheku <kaz@kylheku.com> + Fix jaw-dropping bug introduced on 2009-11-15, first affecting the 022 release. @@ -1506,7 +1506,9 @@ static val transform_op(val forms, val syms, val rg) val fi = first(forms); val re = rest(forms); - if (fi == var_s) { + /* This handles improper list forms like (a b c . @42) + when the recursion hits the @42 part. */ + if (fi == var_s && integerp(car(re))) { cons_bind (outsyms, outforms, transform_op(cons(forms, nil), syms, rg)); return cons(outsyms, rlcp(car(outforms), outforms)); } |