summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.c
diff options
context:
space:
mode:
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. */