38 |
|
|
39 |
do { |
do { |
40 |
if (SCM_NULL_OR_NIL_P(hare)) return i; |
if (SCM_NULL_OR_NIL_P(hare)) return i; |
41 |
if (SCM_NCONSP(hare)) return -2; |
if (!SCM_CONSP (hare)) return -2; |
42 |
hare = SCM_CDR(hare); |
hare = SCM_CDR(hare); |
43 |
i++; |
i++; |
44 |
if (SCM_NULL_OR_NIL_P(hare)) return i; |
if (SCM_NULL_OR_NIL_P(hare)) return i; |
45 |
if (SCM_NCONSP(hare)) return -2; |
if (!SCM_CONSP (hare)) return -2; |
46 |
hare = SCM_CDR(hare); |
hare = SCM_CDR(hare); |
47 |
i++; |
i++; |
48 |
/* For every two steps the hare takes, the tortoise takes one. */ |
/* For every two steps the hare takes, the tortoise takes one. */ |