diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2004-02-20 22:04:24 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2004-02-20 22:04:24 +0000 |
commit | 1e55d28813c6dba90ea05ba3e7703eea191be691 (patch) | |
tree | d78993792d173ca328653df4a8b5fc55cbfd008d /libguile/list.c | |
parent | eb741d98e2f898974923cb0c1b3c8b1913878cd2 (diff) | |
download | guile-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.c | 3 |
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); |