summaryrefslogtreecommitdiff
path: root/libguile/intrinsics.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/intrinsics.c')
-rw-r--r--libguile/intrinsics.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/libguile/intrinsics.c b/libguile/intrinsics.c
index cc8cd2b1e..59192d1ea 100644
--- a/libguile/intrinsics.c
+++ b/libguile/intrinsics.c
@@ -340,6 +340,12 @@ allocate_words (scm_thread *thread, uint64_t n)
return SCM_PACK_POINTER (scm_inline_gc_malloc_words (thread, n));
}
+static SCM
+current_module (scm_thread *thread)
+{
+ return scm_i_current_module (thread);
+}
+
void
scm_bootstrap_intrinsics (void)
@@ -394,6 +400,7 @@ scm_bootstrap_intrinsics (void)
scm_vm_intrinsics.error_not_enough_values = error_not_enough_values;
scm_vm_intrinsics.error_wrong_number_of_values = error_wrong_number_of_values;
scm_vm_intrinsics.allocate_words = allocate_words;
+ scm_vm_intrinsics.current_module = current_module;
scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION,
"scm_init_intrinsics",