summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-10-05 09:53:10 -0700
committerKaz Kylheku <kaz@kylheku.com>2011-10-05 09:53:10 -0700
commit9ea10a1408eb1cd63bd38f0367428b2b57b57b97 (patch)
tree18e1cd02c8602524e01f90dc449bb5399ad8abcd
parent044f4302cca6920ca315f7aea79391d6075b2840 (diff)
downloadtxr-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--ChangeLog6
-rw-r--r--match.c2
2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index b3d88c26..a8714a2c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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,
diff --git a/match.c b/match.c
index 007d7645..94ede32d 100644
--- a/match.c
+++ b/match.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 {