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

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 7d550c4ea0c78c5f4a726cae03bf812a246a6dde
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 a23f151..441da3e 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