diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-21 15:02:36 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-21 15:02:36 +0100 |
commit | 3583665aa0c07011c985092776fc9db0d610466c (patch) | |
tree | 999427a5221e7fac364e04a17eeb537f105d2a99 /libguile | |
parent | e08caa5620ded01fc303169b8e8d81c11e78d4ac (diff) | |
download | guile-3583665aa0c07011c985092776fc9db0d610466c.tar.gz |
Remove unused vm:ip, vm:sp, vm:fp
* libguile/vm.h:
* libguile/vm.c (scm_vm_ip, scm_vm_fp, scm_vm_sp): Remove unused
functions.
* module/system/vm/vm.scm: Remove exports.
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); |