summaryrefslogtreecommitdiff
path: root/libguile/list.c
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2004-02-20 22:04:24 +0000
committerNeil Jerram <neil@ossau.uklinux.net>2004-02-20 22:04:24 +0000
commit1e55d28813c6dba90ea05ba3e7703eea191be691 (patch)
treed78993792d173ca328653df4a8b5fc55cbfd008d /libguile/list.c
parenteb741d98e2f898974923cb0c1b3c8b1913878cd2 (diff)
downloadguile-1e55d28813c6dba90ea05ba3e7703eea191be691.tar.gz
* list.c (scm_list_n): Add #if SCM_DEBUG_CELL_ACCESSES_P around
validation. * read.c (scm_lreadparen): Removed. (scm_lreadparen1): Renamed scm_i_lreadparen.
Diffstat (limited to 'libguile/list.c')
-rw-r--r--libguile/list.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/list.c b/libguile/list.c
index e36797f4a..0088bb39f 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -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);