diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/vm.c | 19 | ||||
-rw-r--r-- | libguile/vm.h | 1 |
2 files changed, 3 insertions, 17 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 21180d8d0..65e822b26 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -830,12 +830,8 @@ scm_c_vm_run (SCM vm, SCM program, SCM *argv, int nargs) return vm_engines[vp->engine](vm, program, argv, nargs); } -/* Scheme interface */ - -SCM_DEFINE (scm_the_vm, "the-vm", 0, 0, 0, - (void), - "Return the current thread's VM.") -#define FUNC_NAME s_scm_the_vm +SCM +scm_the_vm (void) { scm_i_thread *t = SCM_I_CURRENT_THREAD; @@ -844,17 +840,8 @@ SCM_DEFINE (scm_the_vm, "the-vm", 0, 0, 0, return t->vm; } -#undef FUNC_NAME - -SCM_DEFINE (scm_vm_p, "vm?", 1, 0, 0, - (SCM obj), - "") -#define FUNC_NAME s_scm_vm_p -{ - return scm_from_bool (SCM_VM_P (obj)); -} -#undef FUNC_NAME +/* Scheme interface */ #define VM_DEFINE_HOOK(n) \ { \ diff --git a/libguile/vm.h b/libguile/vm.h index 214fd0ba1..a805469ed 100644 --- a/libguile/vm.h +++ b/libguile/vm.h @@ -59,7 +59,6 @@ SCM_API SCM scm_the_vm_fluid; SCM_API SCM scm_the_vm (void); SCM_API SCM scm_call_with_vm (SCM proc, SCM args); -SCM_API SCM scm_vm_p (SCM obj); SCM_API SCM scm_vm_apply_hook (void); SCM_API SCM scm_vm_push_continuation_hook (void); SCM_API SCM scm_vm_pop_continuation_hook (void); |