mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +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

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2000-12-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (restore_environment): Make sure that changes to the
current environment will take effect when re-entering the dynamic
scope.
2000-12-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* goops.h (SCM_PUREGENERICP): Include the SCM_STRUCTP test.

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);
}