1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-07 01:50:32 +02:00

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

It's a complete no-op but in theory might used by someone.
This commit is contained in:
Kevin Ryde 2006-02-02 21:17:07 +00:00
parent da6e22e893
commit e204ca913f
2 changed files with 13 additions and 2 deletions

View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,2000,2001,2002,2003,2004 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,2000,2001,2002,2003,2004,2006 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -544,6 +544,16 @@ SCM_SNARF_DOCS (register, 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.) */