summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-04-21 01:59:57 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2003-04-21 01:59:57 +0000
commit1685446c0d77ed3386f77b306b6b47c451394daa (patch)
tree43d8a09c25b6a4d38180397817f5dd9bea8c6ec5 /srfi/srfi-1.c
parent9ff1720f85d19bb617c2df2f87280376f65ece9d (diff)
downloadguile-1685446c0d77ed3386f77b306b6b47c451394daa.tar.gz
* srfi/srfi-1.c (srfi1_ilength), libguile/list.c (scm_ilength,
scm_last_pair), libguile/unif.c (l2ra): Prefer !SCM_CONSP over SCM_NCONSP. * libguile/unif.c (l2ra): Eliminate redundant check. Now, guile itself does not include any calls to SCM_NCONSP any more.
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r--srfi/srfi-1.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c
index 84441543e..dc97102a0 100644
--- a/srfi/srfi-1.c
+++ b/srfi/srfi-1.c
@@ -38,11 +38,11 @@ srfi1_ilength (SCM sx)
do {
if (SCM_NULL_OR_NIL_P(hare)) return i;
- if (SCM_NCONSP(hare)) return -2;
+ if (!SCM_CONSP (hare)) return -2;
hare = SCM_CDR(hare);
i++;
if (SCM_NULL_OR_NIL_P(hare)) return i;
- if (SCM_NCONSP(hare)) return -2;
+ if (!SCM_CONSP (hare)) return -2;
hare = SCM_CDR(hare);
i++;
/* For every two steps the hare takes, the tortoise takes one. */