mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* Make sure, re-entering the dynamic scope of an eval statement will

Browse source 
restore the latest selected module.
This commit is contained in:
Dirk Herrmann 2000-12-21 17:51:55 +00:00
parent 25ba37dffa
commit 2e9c835db9
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -3836,6 +3836,8 @@ restore_environment (void *data)
{
SCM pair = SCM_PACK (data);
SCM old_module = SCM_CDR (pair);
SCM new_module = scm_selected_module ();
SCM_SETCAR (pair, new_module);
scm_select_module (old_module);
}