mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

wip

Browse source
This commit is contained in:
Neil Jerram 2009-03-25 22:52:01 +00:00
parent 7627abf6ec
commit d460681c79
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/modules.c
View file

@ -279,7 +279,6 @@ SCM_DEFINE (scm_env_module, "env-module", 1, 0, 0,
* C level implementation of the standard eval closure * C level implementation of the standard eval closure
* *
* This increases loading speed substantially. * This increases loading speed substantially.
* The code will be replaced by the low-level environments in next release.
*/ */
static SCM module_make_local_var_x_var; static SCM module_make_local_var_x_var;

5
libguile/throw.c
View file

@ -264,6 +264,7 @@ scm_c_with_throw_handler (SCM tag,
{ {
SCM pre_unwind, answer; SCM pre_unwind, answer;
struct pre_unwind_data c; struct pre_unwind_data c;
SCM new_dynwinds;
c.handler = handler; c.handler = handler;
c.handler_data = handler_data; c.handler_data = handler_data;
@ -272,7 +273,9 @@ scm_c_with_throw_handler (SCM tag,
pre_unwind = make_pre_unwind_data (&c); pre_unwind = make_pre_unwind_data (&c);
SCM_CRITICAL_SECTION_START; SCM_CRITICAL_SECTION_START;
scm_i_set_dynwinds (scm_acons (tag, pre_unwind, scm_i_dynwinds ())); new_dynwinds = scm_acons (tag, pre_unwind, SCM_BOOL_F);
SCM_SETCDR (new_dynwinds, scm_i_dynwinds ());
scm_i_set_dynwinds (new_dynwinds);
SCM_CRITICAL_SECTION_END; SCM_CRITICAL_SECTION_END;
answer = (*body) (body_data); answer = (*body) (body_data);