[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
srfi-1 length+
|
From: |
Kevin Ryde |
|
Subject: |
srfi-1 length+ |
|
Date: |
Sat, 19 Jul 2003 09:54:35 +1000 |
|
User-agent: |
Gnus/5.090019 (Oort Gnus v0.19) Emacs/21.2 (gnu/linux) |
A small improvement,
* srfi-1.c, srfi-1.h, srfi-1.scm (length+): Rewrite using scm_ilength.
SCM_DEFINE (scm_srfi1_length_plus, "length+", 1, 0, 0,
(SCM lst),
"Return the length of @var{lst}, or @code{#f} if @var{lst} is\n"
"circular.")
#define FUNC_NAME s_scm_srfi1_length_plus
{
long len = scm_ilength (lst);
return (len >= 0 ? SCM_MAKINUM (len) : SCM_BOOL_F);
}
#undef FUNC_NAME
lengthplus.test
Description: Text document
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- srfi-1 length+,
Kevin Ryde <=