mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

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

Browse source 
Replaced by macro `collect' in boot-9.scm.
This commit is contained in:
Mikael Djurfeldt 1998-11-12 16:00:41 +00:00
parent 4085a3daf0
commit 88be72acb3
3 changed files with 5 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -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> 1998-11-10 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* eval.c (scm_copy_tree): Copy source properties if existent. * eval.c (scm_copy_tree): Copy source properties if existent.

16
libguile/evalext.c
View file

@ -99,21 +99,6 @@ scm_m_undefine (x, env)
#endif #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); SCM_PROC (s_serial_map, "serial-map", 2, 0, 1, scm_map);
@ -121,6 +106,5 @@ void
scm_init_evalext () scm_init_evalext ()
{ {
scm_make_synt (s_undefine, scm_makacro, scm_m_undefine); 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" #include "evalext.x"
} }

1
libguile/evalext.h
View file

@ -50,7 +50,6 @@
extern SCM scm_definedp SCM_P ((SCM sym)); extern SCM scm_definedp SCM_P ((SCM sym));
extern SCM scm_m_undefine SCM_P ((SCM x, SCM env)); 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)); extern void scm_init_evalext SCM_P ((void));
#endif /* EVALEXTH */ #endif /* EVALEXTH */