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

tweak to eval.c

Browse source 
* libguile/eval.c (eval_letrec_inits): Rename from ceval_letrec_inits.
  Caller changed.
This commit is contained in:
Andy Wingo 2009-08-21 01:17:32 +02:00
parent 715603951e
commit 1963682290
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.c
View file

@ -3780,7 +3780,7 @@ SCM_DEFINE (scm_eval, "eval", 2, 0, 0,
*/
static void
ceval_letrec_inits (SCM env, SCM init_forms, SCM **init_values_eol)
eval_letrec_inits (SCM env, SCM init_forms, SCM **init_values_eol)
{
SCM argv[10];
int i = 0, imax = sizeof (argv) / sizeof (SCM);
@ -3789,7 +3789,7 @@ ceval_letrec_inits (SCM env, SCM init_forms, SCM **init_values_eol)
{
if (imax == i)
{
ceval_letrec_inits (env, init_forms, init_values_eol);
eval_letrec_inits (env, init_forms, init_values_eol);
break;
}
argv[i++] = EVALCAR (init_forms, env);
@ -4255,7 +4255,7 @@ dispatch:
SCM init_forms = SCM_CAR (x);
SCM init_values = scm_list_1 (SCM_BOOL_T);
SCM *init_values_eol = SCM_CDRLOC (init_values);
ceval_letrec_inits (env, init_forms, &init_values_eol);
eval_letrec_inits (env, init_forms, &init_values_eol);
SCM_SETCDR (SCM_CAR (env), SCM_CDR (init_values));
}
x = SCM_CDR (x);