diff options
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r-- | srfi/srfi-1.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c index 247e0c388..db35eb92b 100644 --- a/srfi/srfi-1.c +++ b/srfi/srfi-1.c @@ -63,6 +63,14 @@ equal_trampoline (SCM proc, SCM arg1, SCM arg2) } +/* 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_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_delete, "delete", 2, 1, 0, (SCM x, SCM lst, SCM pred), "Return a list containing the elements of @var{lst} but with\n" |