diff options
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r-- | srfi/srfi-1.c | 4 |
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. */ |