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

* list.c (s_scm_reverse_x): Use SCM_VALIDATE_LIST.

Browse source
This commit is contained in:
Keisuke Nishida 2001-03-11 23:47:16 +00:00
parent e1a7b2cea7
commit e39c3de479
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ChangeLog
View file

@ -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.

4
libguile/list.c
View file

@ -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))
{