* list.c (scm_list_star): New procedure.

diff --git a/libguile/list.c b/libguile/list.c
index f12520e..d7683fb 100644 (file)
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -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;
+}
+
+
 
 \f
 /* general questions about lists --- null?, list?, length, etc.  */