mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 20:30:28 +02:00
(list): Use scm_list_copy, so as to produce a fresh list when
list is called using apply, under the debugging evaluator. (scm_list): Remove.
This commit is contained in:
parent
077ff34b50
commit
36ef49fbb4
1 changed files with 7 additions and 11 deletions
|
@ -117,17 +117,6 @@ scm_list_n (SCM elt, ...)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
SCM_DEFINE (scm_list, "list", 0, 0, 1,
|
|
||||||
(SCM objs),
|
|
||||||
"Return a list containing @var{objs}, the arguments to\n"
|
|
||||||
"@code{list}.")
|
|
||||||
#define FUNC_NAME s_scm_list
|
|
||||||
{
|
|
||||||
return objs;
|
|
||||||
}
|
|
||||||
#undef FUNC_NAME
|
|
||||||
|
|
||||||
|
|
||||||
#if (SCM_DEBUG_DEPRECATED == 0)
|
#if (SCM_DEBUG_DEPRECATED == 0)
|
||||||
|
|
||||||
SCM_REGISTER_PROC (s_list_star, "list*", 1, 0, 1, scm_cons_star);
|
SCM_REGISTER_PROC (s_list_star, "list*", 1, 0, 1, scm_cons_star);
|
||||||
|
@ -547,6 +536,13 @@ SCM_DEFINE (scm_list_copy, "list-copy", 1, 0, 0,
|
||||||
}
|
}
|
||||||
#undef FUNC_NAME
|
#undef FUNC_NAME
|
||||||
|
|
||||||
|
|
||||||
|
SCM_PROC (s_list, "list", 0, 0, 1, scm_list_copy);
|
||||||
|
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}.")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/* membership tests (memq, memv, etc.) */
|
/* membership tests (memq, memv, etc.) */
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue