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

* list.c (scm_list_n): Add #if SCM_DEBUG_CELL_ACCESSES_P around

Browse source 
validation.

	* read.c (scm_lreadparen): Removed.
	(scm_lreadparen1): Renamed scm_i_lreadparen.
This commit is contained in:
Neil Jerram 2004-02-20 22:04:24 +00:00
parent eb741d98e2
commit 1e55d28813
4 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/list.c
View file

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