summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2003-07-28 23:43:51 +0000
committerKevin Ryde <user42@zip.com.au>2003-07-28 23:43:51 +0000
commit47f2726f4ce9bc20f29a84c30cd992585495e3c3 (patch)
tree9e317fd4847f3dc29dd96adea99641328514b03c /srfi/srfi-1.c
parent603707f49b3c4dbbde7c2a2966bd86fdbb54efa3 (diff)
downloadguile-47f2726f4ce9bc20f29a84c30cd992585495e3c3.tar.gz
(concatenate, concatenate!): Use scm_append and scm_append_x.
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r--srfi/srfi-1.c8
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"