[Guile-commits] 03/11: Fix ,profile in pure modules

[Andy Wingo]

wingo pushed a commit to branch stable-2.0
in repository guile.

commit 1d5e60df846a42ba2ba51435e055213d8772e071
Author: Andy Wingo <address@hidden>
Date:   Fri Jun 24 09:50:23 2016 +0200

    Fix ,profile in pure modules
    
    * libguile/scmsigs.c (close_1): Make the async closure in an environment
      where `lambda' has its usual meaning.  Fixes #21013.
---
 libguile/scmsigs.c |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c
index f404b6a..3b372c7 100644
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -109,8 +109,10 @@ static SIGRETTYPE (*orig_handlers[NSIG])(int);
 static SCM
 close_1 (SCM proc, SCM arg)
 {
-  return scm_primitive_eval_x (scm_list_3 (scm_sym_lambda, SCM_EOL,
-                                          scm_list_2 (proc, arg)));
+  /* Eval in the root module so that `lambda' has its usual meaning.  */
+  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