370 |
#undef FUNC_NAME |
#undef FUNC_NAME |
371 |
|
|
372 |
|
|
373 |
|
SCM_DEFINE (scm_srfi1_length_plus, "length+", 1, 0, 0, |
374 |
|
(SCM lst), |
375 |
|
"Return the length of @var{lst}, or @code{#f} if @var{lst} is\n" |
376 |
|
"circular.") |
377 |
|
#define FUNC_NAME s_scm_srfi1_length_plus |
378 |
|
{ |
379 |
|
long len = scm_ilength (lst); |
380 |
|
return (len >= 0 ? SCM_MAKINUM (len) : SCM_BOOL_F); |
381 |
|
} |
382 |
|
#undef FUNC_NAME |
383 |
|
|
384 |
|
|
385 |
/* Typechecking for multi-argument MAP and FOR-EACH. |
/* Typechecking for multi-argument MAP and FOR-EACH. |
386 |
|
|
387 |
Verify that each element of the vector ARGV, except for the first, |
Verify that each element of the vector ARGV, except for the first, |