/[guile]/guile/guile-core/srfi/srfi-1.c
ViewVC logotype

Diff of /guile/guile-core/srfi/srfi-1.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by mvo, Sat Apr 5 19:15:01 2003 UTC revision 1.6 by dirk, Mon Apr 21 01:59:57 2003 UTC
# Line 38  srfi1_ilength (SCM sx) Line 38  srfi1_ilength (SCM sx)
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.  */

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26