mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Renamed the "frames" that are related to dynamic-wind to "dynamic

Browse source 
contexts.  Renamed all functions from scm_frame_ to scm_dynwind_.
Updated documentation.
This commit is contained in:
Marius Vollmer 2006-01-29 00:23:28 +00:00
parent 15ccf10bf2
commit 661ae7ab6b
43 changed files with 462 additions and 449 deletions
Download patch file Download diff file Expand all files Collapse all files

22
libguile/eval.c
View file

@ -3099,14 +3099,14 @@ SCM_DEFINE (scm_eval_options_interface, "eval-options-interface", 0, 1, 0,
{
SCM ans;
scm_frame_begin (0);
scm_frame_critical_section (SCM_BOOL_F);
scm_dynwind_begin (0);
scm_dynwind_critical_section (SCM_BOOL_F);
ans = scm_options (setting,
scm_eval_opts,
SCM_N_EVAL_OPTIONS,
FUNC_NAME);
scm_eval_stack = SCM_EVAL_STACK * sizeof (void *);
scm_frame_end ();
scm_dynwind_end ();
return ans;
}
@ -5908,15 +5908,15 @@ scm_eval_x (SCM exp, SCM module_or_state)
{
SCM res;
scm_frame_begin (SCM_F_FRAME_REWINDABLE);
scm_dynwind_begin (SCM_F_DYNWIND_REWINDABLE);
if (scm_is_dynamic_state (module_or_state))
scm_frame_current_dynamic_state (module_or_state);
scm_dynwind_current_dynamic_state (module_or_state);
else
scm_frame_current_module (module_or_state);
scm_dynwind_current_module (module_or_state);
res = scm_primitive_eval_x (exp);
scm_frame_end ();
scm_dynwind_end ();
return res;
}
@ -5934,15 +5934,15 @@ SCM_DEFINE (scm_eval, "eval", 2, 0, 0,
{
SCM res;
scm_frame_begin (SCM_F_FRAME_REWINDABLE);
scm_dynwind_begin (SCM_F_DYNWIND_REWINDABLE);
if (scm_is_dynamic_state (module_or_state))
scm_frame_current_dynamic_state (module_or_state);
scm_dynwind_current_dynamic_state (module_or_state);
else
scm_frame_current_module (module_or_state);
scm_dynwind_current_module (module_or_state);
res = scm_primitive_eval (exp);
scm_frame_end ();
scm_dynwind_end ();
return res;
}
#undef FUNC_NAME