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

* modules.h (scm_selected_module, scm_current_module): Renamed

Browse source 
scm_selected_module to scm_current_module to synchronize Scheme
and C names.
(scm_select_module, scm_set_current_module): Likewise.  Changed
all uses.
This commit is contained in:
Marius Vollmer 2001-02-08 18:49:52 +00:00
parent fdfe6305a5
commit aa767bc58f
7 changed files with 21 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/eval.c
View file

@ -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.