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

(scm_eval_options_interface): Use scm_frame_critical_section instead

Browse source 
of SCM_CRITICAL_SECTION_START and SCM_CRITICAL_SECTION_END.
This commit is contained in:
Marius Vollmer 2005-06-06 18:49:55 +00:00
parent a677679f49
commit 876099d4ef
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/eval.c
View file

@ -3097,16 +3097,16 @@ SCM_DEFINE (scm_eval_options_interface, "eval-options-interface", 0, 1, 0,
#define FUNC_NAME s_scm_eval_options_interface #define FUNC_NAME s_scm_eval_options_interface
{ {
SCM ans; SCM ans;
SCM_CRITICAL_SECTION_START;
scm_frame_begin (0);
scm_frame_critical_section (SCM_BOOL_F);
ans = scm_options (setting, ans = scm_options (setting,
scm_eval_opts, scm_eval_opts,
SCM_N_EVAL_OPTIONS, SCM_N_EVAL_OPTIONS,
FUNC_NAME); FUNC_NAME);
/* njrev: There are several ways that scm_options can signal an
error: scm_cons, scm_malloc_obj, scm_misc_error; so should use a
critical section frame here. */
scm_eval_stack = SCM_EVAL_STACK * sizeof (void *); scm_eval_stack = SCM_EVAL_STACK * sizeof (void *);
SCM_CRITICAL_SECTION_END; scm_frame_end ();
return ans; return ans;
} }
#undef FUNC_NAME #undef FUNC_NAME