summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/modules.c b/libguile/modules.c
index 6e5d3413a..ad016582a 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -188,9 +188,9 @@ scm_system_module_env_p (SCM env)
* The code will be replaced by the low-level environments in next release.
*/
-#define OBARRAY(module) (SCM_STRUCT_DATA (module) [0])
-#define USES(module) (SCM_STRUCT_DATA (module) [1])
-#define BINDER(module) (SCM_STRUCT_DATA (module) [2])
+#define OBARRAY(module) (SCM_PACK (SCM_STRUCT_DATA (module) [0]))
+#define USES(module) (SCM_PACK (SCM_STRUCT_DATA (module) [1]))
+#define BINDER(module) (SCM_PACK (SCM_STRUCT_DATA (module) [2]))
static SCM module_make_local_var_x;
@@ -246,7 +246,7 @@ SCM_DEFINE (scm_standard_eval_closure, "standard-eval-closure", 1, 0, 0,
"")
#define FUNC_NAME s_scm_standard_eval_closure
{
- SCM cclo = scm_makcclo (f_eval_closure, SCM_MAKINUM (2));
+ SCM cclo = scm_makcclo (f_eval_closure, 2);
SCM_VELTS (cclo) [1] = module;
return cclo;
}