summaryrefslogtreecommitdiff
path: root/libguile/list.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/list.c')
-rw-r--r--libguile/list.c10
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/list.c b/libguile/list.c
index 9799dabee..a1a79a43a 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -570,6 +570,16 @@ SCM_SNARF_DOCS (primitive, scm_list_copy, "list", (SCM objs), 0, 0, 1,
"Return a list containing @var{objs}, the arguments to\n"
"@code{list}.")
+/* This used to be the code for "list", but it's wrong when used via apply
+ (it should copy the list). It seems pretty unlikely anyone would have
+ been using this from C code, since it's a no-op, but keep it for strict
+ binary compatibility. */
+SCM
+scm_list (SCM objs)
+{
+ return objs;
+}
+
/* membership tests (memq, memv, etc.) */