/[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.9 by kryde, Mon Jul 28 23:43:05 2003 UTC revision 1.10 by kryde, Mon Jul 28 23:53:01 2003 UTC
# Line 370  SCM_DEFINE (scm_srfi1_delete_duplicates_ Line 370  SCM_DEFINE (scm_srfi1_delete_duplicates_
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,

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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