mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

(concatenate, concatenate!): Use scm_append and scm_append_x.

Browse source
This commit is contained in:
Kevin Ryde 2003-07-28 23:43:51 +00:00
parent 603707f49b
commit 47f2726f4c
2 changed files with 8 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

8
srfi/srfi-1.c
View file

@ -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"