mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* modules.h (SCM_MODULEP, SCM_VALIDATE_MODULE,

Browse source 
SCM_MODULE_OBARRAY, SCM_MODULE_USES, SCM_MODULE_BINDER,
SCM_MODULE_EVAL_CLOSURE): New macros.
(scm_module_index_obarray, scm_module_index_uses,
scm_module_index_binder, scm_module_index_eval_closure): New
constants; #include "validate.h".
This commit is contained in:
Mikael Djurfeldt 2000-08-11 08:44:16 +00:00
parent e3365c07da
commit b486ccc869
1 changed files with 31 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
libguile/modules.h
View file

@ -46,10 +46,41 @@
#include "libguile/__scm.h"
#include "libguile/validate.h"
#define SCM_MODULEP(OBJ) \
(SCM_NIMP (OBJ) && SCM_CELL_TYPE (OBJ) == scm_module_tag)
#define SCM_VALIDATE_MODULE(pos, scm) SCM_MAKE_VALIDATE (pos, scm, MODULEP)
/* NOTE: Indexes of module fields are dependent upon the definition of
* module-type in boot-9.scm.
*/
#define scm_module_index_obarray 0
#define scm_module_index_uses 1
#define scm_module_index_binder 2
#define scm_module_index_eval_closure 3
#define SCM_MODULE_OBARRAY(module) \
SCM_PACK (SCM_STRUCT_DATA (module) [scm_module_index_obarray])
#define SCM_MODULE_USES(module) \
SCM_PACK (SCM_STRUCT_DATA (module) [scm_module_index_uses])
#define SCM_MODULE_BINDER(module) \
SCM_PACK (SCM_STRUCT_DATA (module) [scm_module_index_binder])
#define SCM_MODULE_EVAL_CLOSURE(module) \
SCM_PACK (SCM_STRUCT_DATA (module)[scm_module_index_eval_closure])
extern SCM scm_module_system_booted_p;
extern SCM scm_module_tag;
extern SCM scm_the_root_module (void);
extern SCM scm_selected_module (void);
extern SCM scm_interaction_environment (void);
extern SCM scm_select_module (SCM module);
extern SCM scm_make_module (SCM name);
extern SCM scm_ensure_user_module (SCM name);