mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* alist.c (scm_assq_remove_x, scm_assv_remove_x,

Browse source 
scm_assoc_remove_x): Use scm_delq1_x instead of scm_delq_x, since
using the latter is pointless.
This commit is contained in:
Marius Vollmer 2000-07-30 13:40:46 +00:00
parent 6de50a5278
commit 60e61f0a20
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/alist.c
View file

@ -339,7 +339,7 @@ SCM_DEFINE (scm_assq_remove_x, "assq-remove!", 2, 0, 0,
handle = scm_sloppy_assq (key, alist);
if (SCM_CONSP (handle))
alist = scm_delq_x (handle, alist);
alist = scm_delq1_x (handle, alist);
return alist;
}
@ -355,7 +355,7 @@ SCM_DEFINE (scm_assv_remove_x, "assv-remove!", 2, 0, 0,
handle = scm_sloppy_assv (key, alist);
if (SCM_CONSP (handle))
alist = scm_delq_x (handle, alist);
alist = scm_delq1_x (handle, alist);
return alist;
}
@ -371,7 +371,7 @@ SCM_DEFINE (scm_assoc_remove_x, "assoc-remove!", 2, 0, 0,
handle = scm_sloppy_assoc (key, alist);
if (SCM_CONSP (handle))
alist = scm_delq_x (handle, alist);
alist = scm_delq1_x (handle, alist);
return alist;
}