mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +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:17:07 +00:00
parent da6e22e893
commit e204ca913f
2 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/list.c
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.) */

3
libguile/list.h
View file

@ -2,7 +2,7 @@
#ifndef LISTH
#define LISTH
/* Copyright (C) 1995,1996,1997, 2000, 2001 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997, 2000, 2001, 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
@ -54,6 +54,7 @@ extern SCM scm_list_3 (SCM e1, SCM e2, SCM e3);
extern SCM scm_list_4 (SCM e1, SCM e2, SCM e3, SCM e4);
extern SCM scm_list_5 (SCM e1, SCM e2, SCM e3, SCM e4, SCM e5);
extern SCM scm_list_n (SCM elt, ...);
extern SCM scm_list (SCM objs);
extern SCM scm_list_head (SCM lst, SCM k);
extern SCM scm_list (SCM objs);
extern SCM scm_cons_star (SCM arg, SCM objs);