* list.c (s_scm_reverse_x): Use SCM_VALIDATE_LIST.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 9aff894..0317992 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,5 +1,7 @@
 2001-03-11  Keisuke Nishida  <kxn30@po.cwru.edu>
 
+       * list.c (s_scm_reverse_x): Use SCM_VALIDATE_LIST.
+
        * environments.c, error.c, eval.c, filesys.c, hashtab.c, load.c,
        net_db.c, procprop.c, read.c, scmsigs.c, socket.c, struct.c:
        Use SCM_LISTn instead of scm_listify.

diff --git a/libguile/list.c b/libguile/list.c
index 141d48a..7655b53 100644 (file)
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -329,11 +329,11 @@ SCM_DEFINE (scm_reverse_x, "reverse!", 1, 1, 0,
            "@code{reverse!}")
 #define FUNC_NAME s_scm_reverse_x
 {
-  SCM_ASSERT (scm_ilength (lst) >= 0, lst, SCM_ARG1, FUNC_NAME);
+  SCM_VALIDATE_LIST (1, lst);
   if (SCM_UNBNDP (new_tail))
     new_tail = SCM_EOL;
   else
-    SCM_ASSERT (scm_ilength (new_tail) >= 0, new_tail, SCM_ARG2, FUNC_NAME);
+    SCM_VALIDATE_LIST (2, new_tail);
 
   while (SCM_NNULLP (lst))
     {