From 88be72acb34c90128a081f7ebede89962316cc24 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 12 Nov 1998 16:00:41 +0000 Subject: [PATCH] * evalext.c, evalext.h (scm_m_sequence_to_list): Removed. Replaced by macro `collect' in boot-9.scm. --- libguile/ChangeLog | 5 +++++ libguile/evalext.c | 16 ---------------- libguile/evalext.h | 1 - 3 files changed, 5 insertions(+), 17 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 70f32bb2a..97760b437 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +1998-11-13 Mikael Djurfeldt + + * evalext.c, evalext.h (scm_m_sequence_to_list): Removed. + Replaced by macro `collect' in boot-9.scm. + 1998-11-10 Mikael Djurfeldt * eval.c (scm_copy_tree): Copy source properties if existent. diff --git a/libguile/evalext.c b/libguile/evalext.c index 31011130b..7a16bf67c 100644 --- 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 f58a96ea2..c23246dcf 100644 --- 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 */