diff options
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index b1cc84f96..b8479e4bf 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -3820,9 +3820,9 @@ change_environment (void *data) { SCM pair = SCM_PACK (data); SCM new_module = SCM_CAR (pair); - SCM old_module = scm_selected_module (); + SCM old_module = scm_current_module (); SCM_SETCDR (pair, old_module); - scm_select_module (new_module); + scm_set_current_module (new_module); } @@ -3847,9 +3847,9 @@ restore_environment (void *data) { SCM pair = SCM_PACK (data); SCM old_module = SCM_CDR (pair); - SCM new_module = scm_selected_module (); + SCM new_module = scm_current_module (); SCM_SETCAR (pair, new_module); - scm_select_module (old_module); + scm_set_current_module (old_module); } @@ -3874,7 +3874,7 @@ SCM_DEFINE (scm_eval, "eval", 2, 0, 0, #if (SCM_DEBUG_DEPRECATED == 0) -/* Use scm_selected_module () or scm_interaction_environment () +/* Use scm_current_module () or scm_interaction_environment () * instead. The former is the module selected during loading of code. * The latter is the module in which the user of this thread currently * types expressions. |