diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-10-05 09:53:10 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-10-05 09:53:10 -0700 |
commit | 9ea10a1408eb1cd63bd38f0367428b2b57b57b97 (patch) | |
tree | 18e1cd02c8602524e01f90dc449bb5399ad8abcd | |
parent | 044f4302cca6920ca315f7aea79391d6075b2840 (diff) | |
download | txr-9ea10a1408eb1cd63bd38f0367428b2b57b57b97.tar.gz txr-9ea10a1408eb1cd63bd38f0367428b2b57b57b97.tar.bz2 txr-9ea10a1408eb1cd63bd38f0367428b2b57b57b97.zip |
* match.c (match_files): In function calls, the deletion of
the unbound variable from the argument list can be done
with a destructive operation since that list is a copy.
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | match.c | 2 |
2 files changed, 7 insertions, 1 deletions
@@ -1,3 +1,9 @@ +2011-10-05 Kaz Kylheku <kaz@kylheku.com> + + * match.c (match_files): In function calls, the deletion of + the unbound variable from the argument list can be done + with a destructive operation since that list is a copy. + 2011-10-04 Kaz Kylheku <kaz@kylheku.com> * LICENSE, Makefile, configure, filter.c, filter.h, gc.c, gc.h, hash.c, @@ -2046,7 +2046,7 @@ repeat_spec_same_data: param, cdr(val)); } else { - bindings_cp = alist_remove1(bindings_cp, param); + bindings_cp = alist_nremove1(bindings_cp, param); ub_p_a_pairs = cons(cons(param, arg), ub_p_a_pairs); } } else { |