* alist.c (scm_assq_remove_x, scm_assv_remove_x,

scm_assoc_remove_x): Use scm_delq1_x instead of scm_delq_x, since
using the latter is pointless.

diff --git a/libguile/alist.c b/libguile/alist.c
index da9335f..adede41 100644 (file)
--- a/libguile/alist.c
+++ b/libguile/alist.c
@@ -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;
 }