diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/vm.c | 30 | ||||
-rw-r--r-- | libguile/vm.h | 3 |
2 files changed, 0 insertions, 33 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index 6bbf251f2..f7fac9559 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -856,36 +856,6 @@ SCM_DEFINE (scm_vm_p, "vm?", 1, 0, 0, } #undef FUNC_NAME -SCM_DEFINE (scm_vm_ip, "vm:ip", 1, 0, 0, - (SCM vm), - "") -#define FUNC_NAME s_scm_vm_ip -{ - SCM_VALIDATE_VM (1, vm); - return scm_from_unsigned_integer ((scm_t_bits) SCM_VM_DATA (vm)->ip); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_vm_sp, "vm:sp", 1, 0, 0, - (SCM vm), - "") -#define FUNC_NAME s_scm_vm_sp -{ - SCM_VALIDATE_VM (1, vm); - return scm_from_unsigned_integer ((scm_t_bits) SCM_VM_DATA (vm)->sp); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_vm_fp, "vm:fp", 1, 0, 0, - (SCM vm), - "") -#define FUNC_NAME s_scm_vm_fp -{ - SCM_VALIDATE_VM (1, vm); - return scm_from_unsigned_integer ((scm_t_bits) SCM_VM_DATA (vm)->fp); -} -#undef FUNC_NAME - #define VM_DEFINE_HOOK(n) \ { \ struct scm_vm *vp; \ diff --git a/libguile/vm.h b/libguile/vm.h index e46176481..a71fd0f70 100644 --- a/libguile/vm.h +++ b/libguile/vm.h @@ -60,9 +60,6 @@ SCM_API SCM scm_the_vm (void); SCM_API SCM scm_call_with_vm (SCM vm, SCM proc, SCM args); SCM_API SCM scm_vm_p (SCM obj); -SCM_API SCM scm_vm_ip (SCM vm); -SCM_API SCM scm_vm_sp (SCM vm); -SCM_API SCM scm_vm_fp (SCM vm); SCM_API SCM scm_vm_apply_hook (SCM vm); SCM_API SCM scm_vm_push_continuation_hook (SCM vm); SCM_API SCM scm_vm_pop_continuation_hook (SCM vm); |