Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

length primitive now implements srfi-1 length+

Browse source
This commit is contained in:
Alex Shinn 2011-03-10 00:40:38 +09:00
parent 645d056812
commit f92f423297
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
sexp.c
View file

@ -642,11 +642,16 @@ sexp sexp_append2_op (sexp ctx sexp_api_params(self, n), sexp a, sexp b) {
return b1;
}
sexp sexp_length_op (sexp ctx sexp_api_params(self, n), sexp ls) {
sexp_uint_t res=0;
for ( ; sexp_pairp(ls); res++, ls=sexp_cdr(ls))
;
return sexp_make_fixnum(res);
sexp sexp_length_op (sexp ctx sexp_api_params(self, n), sexp ls1) {
sexp ls2;
sexp_uint_t res = 1;
if (!sexp_pairp(ls1))
return SEXP_ZERO;
for (ls2=sexp_cdr(ls1); sexp_pairp(ls2) && sexp_pairp(sexp_cdr(ls2));
res+=2, ls1=sexp_cdr(ls1), ls2=sexp_cddr(ls2))
if (ls1 == ls2)
return SEXP_FALSE;
return sexp_make_fixnum(res + (sexp_pairp(ls2) ? 1 : 0));
}
sexp sexp_equalp_op (sexp ctx sexp_api_params(self, n), sexp a, sexp b) {