diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-04-03 22:41:15 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-04-03 22:41:15 +0000 |
commit | c66c6d535d3e07ff2118614c7e9d6ce7d651b622 (patch) | |
tree | 2f6624128670a185e0b0e2a50b94ffd719fd919f /srfi/srfi-1.c | |
parent | dc7b50ed09164705329eb02cb0fa5e14d9612985 (diff) | |
download | guile-c66c6d535d3e07ff2118614c7e9d6ce7d651b622.tar.gz |
(scm_srfi1_concatenate, scm_srfi1_concatenate_x): Add code
to check argument is a list, scm_append and scm_append_x don't do that
on their "rest" list (in a normal build).
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r-- | srfi/srfi-1.c | 37 |
1 files changed, 32 insertions, 5 deletions
diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c index 74df5a96e..f404f7815 100644 --- a/srfi/srfi-1.c +++ b/srfi/srfi-1.c @@ -97,12 +97,39 @@ SCM_DEFINE (scm_srfi1_alist_copy, "alist-copy", 1, 0, 0, #undef FUNC_NAME -/* scm_append and scm_append_x don't modify their list argument (only the - lists within that list in the case of scm_append_x), hence making them - suitable for direct use for concatentate. */ +SCM_DEFINE (scm_srfi1_concatenate, "concatenate", 1, 0, 0, + (SCM lstlst), + "Construct a list by appending all lists in @var{lstlst}.\n" + "\n" + "@code{concatenate} is the same as @code{(apply append\n" + "@var{lstlst})}. It exists because some Scheme implementations\n" + "have a limit on the number of arguments a function takes, which\n" + "the @code{apply} might exceed. In Guile there is no such\n" + "limit.") +#define FUNC_NAME s_scm_srfi1_concatenate +{ + SCM_VALIDATE_LIST (SCM_ARG1, lstlst); + return scm_append (lstlst); +} +#undef FUNC_NAME + -SCM_REGISTER_PROC (s_srfi1_concatenate, "concatenate", 1, 0, 0, scm_append); -SCM_REGISTER_PROC (s_srfi1_concatenate_x, "concatenate!", 1, 0, 0, scm_append_x); +SCM_DEFINE (scm_srfi1_concatenate_x, "concatenate!", 1, 0, 0, + (SCM lstlst), + "Construct a list by appending all lists in @var{lstlst}. Those\n" + "lists may be modified to produce the result.\n" + "\n" + "@code{concatenate!} is the same as @code{(apply append!\n" + "@var{lstlst})}. It exists because some Scheme implementations\n" + "have a limit on the number of arguments a function takes, which\n" + "the @code{apply} might exceed. In Guile there is no such\n" + "limit.") +#define FUNC_NAME s_scm_srfi1_concatenate +{ + SCM_VALIDATE_LIST (SCM_ARG1, lstlst); + return scm_append_x (lstlst); +} +#undef FUNC_NAME SCM_DEFINE (scm_srfi1_count, "count", 2, 0, 1, |