mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

Fix ,profile in pure modules

Browse source 
* libguile/scmsigs.c (close_1): Make the async closure in an environment
  where `lambda' has its usual meaning.  Fixes #21013.
This commit is contained in:
Andy Wingo 2016-06-24 09:50:23 +02:00
parent 20718dd94b
commit 7d550c4ea0
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/scmsigs.c
View file

@ -109,8 +109,10 @@ static SIGRETTYPE (*orig_handlers[NSIG])(int);
static SCM static SCM
close_1 (SCM proc, SCM arg) close_1 (SCM proc, SCM arg)
{ {
return scm_primitive_eval_x (scm_list_3 (scm_sym_lambda, SCM_EOL, /* Eval in the root module so that `lambda' has its usual meaning. */
scm_list_2 (proc, arg))); return scm_eval (scm_list_3 (scm_sym_lambda, SCM_EOL,
scm_list_2 (proc, arg)),
scm_the_root_module ());
} }
#if SCM_USE_PTHREAD_THREADS #if SCM_USE_PTHREAD_THREADS