diff options
Diffstat (limited to 'libguile/intrinsics.h')
-rw-r--r-- | libguile/intrinsics.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/intrinsics.h b/libguile/intrinsics.h index 02045f3d5..7a122d983 100644 --- a/libguile/intrinsics.h +++ b/libguile/intrinsics.h @@ -63,6 +63,7 @@ typedef void (*scm_t_noreturn_intrinsic) (void) SCM_NORETURN; typedef void (*scm_t_scm_noreturn_intrinsic) (SCM) SCM_NORETURN; typedef void (*scm_t_u32_noreturn_intrinsic) (uint32_t) SCM_NORETURN; typedef SCM (*scm_t_scm_from_thread_u64_intrinsic) (scm_thread*, uint64_t); +typedef SCM (*scm_t_scm_from_thread_intrinsic) (scm_thread*); #define SCM_FOR_ALL_VM_INTRINSICS(M) \ M(scm_from_scm_scm, add, "add", ADD) \ @@ -127,6 +128,7 @@ typedef SCM (*scm_t_scm_from_thread_u64_intrinsic) (scm_thread*, uint64_t); M(u32_noreturn, error_wrong_number_of_values, "wrong-number-of-values", ERROR_WRONG_NUMBER_OF_VALUES) \ M(thread, apply_non_program, "apply-non-program", APPLY_NON_PROGRAM) \ M(scm_from_thread_u64, allocate_words, "allocate-words", ALLOCATE_WORDS) \ + M(scm_from_thread, current_module, "current-module", CURRENT_MODULE) \ /* Add new intrinsics here; also update scm_bootstrap_intrinsics. */ enum scm_vm_intrinsic |