[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"
#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

Attachment: lengthplus.test
Description: Text document

reply via email to

[Prev in Thread] Current Thread [Next in Thread]