mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

* list.c (scm_list_star): New procedure.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-03-11 11:46:16 +00:00
parent 8163d1e493
commit a610b8d970
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/list.c
View file

@ -93,6 +93,25 @@ scm_list(objs)
} }
SCM_PROC (s_list_star, "list*", 1, 0, 1, scm_list_star);
SCM
scm_list_star (SCM arg, SCM rest)
{
if (SCM_NIMP (rest))
{
SCM prev = arg = scm_cons (arg, rest);
while (SCM_NIMP (SCM_CDR (rest)))
{
prev = rest;
rest = SCM_CDR (rest);
}
SCM_SETCDR (prev, SCM_CAR (rest));
}
return arg;
}
/* general questions about lists --- null?, list?, length, etc. */ /* general questions about lists --- null?, list?, length, etc. */