mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

(scm_list_n): check validate non-immediate arguments;

Browse source 
this will catch forgotten a SCM_UNDEFINED.
This commit is contained in:
Han-Wen Nienhuys 2004-02-20 21:15:56 +00:00
parent 83078c1ebd
commit eb741d98e2
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2004-02-20 Han-Wen Nienhuys <hanwen@xs4all.nl>
* list.c (scm_list_n): validate non-immediate arguments;
this will catch forgotten a SCM_UNDEFINED.
2004-02-18 Marius Vollmer <mvo@zagadka.de> 2004-02-18 Marius Vollmer <mvo@zagadka.de>
* gc.h (scm_gc_cells_collected): Removed duplicated declaration. * gc.h (scm_gc_cells_collected): Removed duplicated declaration.

3
libguile/list.c
View file

@ -90,6 +90,9 @@ scm_list_n (SCM elt, ...)
var_start (foo, elt); var_start (foo, elt);
while (! SCM_UNBNDP (elt)) while (! SCM_UNBNDP (elt))
{ {
if (SCM_NIMP (elt))
SCM_VALIDATE_CELL(elt, 0);
*pos = scm_cons (elt, SCM_EOL); *pos = scm_cons (elt, SCM_EOL);
pos = SCM_CDRLOC (*pos); pos = SCM_CDRLOC (*pos);
elt = va_arg (foo, SCM); elt = va_arg (foo, SCM);