mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(scm_list): Restore this function for use from C.

Browse source 
It's a complete no-op but in theory might used by someone.
This commit is contained in:
Kevin Ryde 2006-02-02 21:15:48 +00:00
parent 1443643fd8
commit 303bddc879
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/list.c
View file

@ -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" "Return a list containing @var{objs}, the arguments to\n"
"@code{list}.") "@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.) */ /* membership tests (memq, memv, etc.) */

3
libguile/list.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_LIST_H #ifndef SCM_LIST_H
#define SCM_LIST_H #define SCM_LIST_H
/* Copyright (C) 1995,1996,1997,2000,2001,2003,2004 /* Copyright (C) 1995,1996,1997,2000,2001,2003,2004,2006
* Free Software Foundation, Inc. * Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
@ -33,6 +33,7 @@ SCM_API SCM scm_list_3 (SCM e1, SCM e2, SCM e3);
SCM_API SCM scm_list_4 (SCM e1, SCM e2, SCM e3, SCM e4); SCM_API SCM scm_list_4 (SCM e1, SCM e2, SCM e3, SCM e4);
SCM_API SCM scm_list_5 (SCM e1, SCM e2, SCM e3, SCM e4, SCM e5); SCM_API SCM scm_list_5 (SCM e1, SCM e2, SCM e3, SCM e4, SCM e5);
SCM_API SCM scm_list_n (SCM elt, ...); SCM_API SCM scm_list_n (SCM elt, ...);
SCM_API SCM scm_list (SCM objs);
SCM_API SCM scm_list_head (SCM lst, SCM k); SCM_API SCM scm_list_head (SCM lst, SCM k);
SCM_API SCM scm_make_list (SCM n, SCM init); SCM_API SCM scm_make_list (SCM n, SCM init);
SCM_API SCM scm_cons_star (SCM arg, SCM objs); SCM_API SCM scm_cons_star (SCM arg, SCM objs);