* evalext.c, evalext.h (scm_m_sequence_to_list): Removed.

Replaced by macro `collect' in boot-9.scm.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 70f32bb..97760b4 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1998-11-13  Mikael Djurfeldt  <mdj@barbara.nada.kth.se>
+
+       * evalext.c, evalext.h (scm_m_sequence_to_list): Removed.
+       Replaced by macro `collect' in boot-9.scm.
+
 1998-11-10  Mikael Djurfeldt  <mdj@barbara.nada.kth.se>
 
        * eval.c (scm_copy_tree): Copy source properties if existent.

diff --git a/libguile/evalext.c b/libguile/evalext.c
index 3101113..7a16bf6 100644 (file)
--- a/libguile/evalext.c
+++ b/libguile/evalext.c
@@ -99,21 +99,6 @@ scm_m_undefine (x, env)
 #endif
 }
 
-static char s_sequence_to_list[] = "sequence->list";
-
-SCM
-scm_m_sequence_to_list (SCM xorig, SCM env)
-{
-  SCM x = xorig;
-  SCM res = SCM_EOL;
-  while (SCM_NNULLP (x = SCM_CDR (x)))
-    {
-      SCM_ASSYNT (SCM_NIMP (x) && SCM_ECONSP (x),
-                 xorig, scm_s_expression, s_sequence_to_list);
-      res = scm_cons (SCM_XEVALCAR (x, env), res);
-    }
-  return res;
-}
 
 SCM_PROC (s_serial_map, "serial-map", 2, 0, 1, scm_map);
 
@@ -121,6 +106,5 @@ void
 scm_init_evalext ()
 {
   scm_make_synt (s_undefine, scm_makacro, scm_m_undefine);
-  scm_make_synt (s_sequence_to_list, scm_makacro, scm_m_sequence_to_list);
 #include "evalext.x"
 }

diff --git a/libguile/evalext.h b/libguile/evalext.h
index f58a96e..c23246d 100644 (file)
--- a/libguile/evalext.h
+++ b/libguile/evalext.h
@@ -50,7 +50,6 @@
 
 extern SCM scm_definedp SCM_P ((SCM sym));
 extern SCM scm_m_undefine SCM_P ((SCM x, SCM env));
-extern SCM scm_m_sequence_to_list SCM_P ((SCM x, SCM env));
 extern void scm_init_evalext SCM_P ((void));
 
 #endif  /* EVALEXTH */