summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-21 15:02:36 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-21 15:02:36 +0100
commit3583665aa0c07011c985092776fc9db0d610466c (patch)
tree999427a5221e7fac364e04a17eeb537f105d2a99 /libguile
parente08caa5620ded01fc303169b8e8d81c11e78d4ac (diff)
downloadguile-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.c30
-rw-r--r--libguile/vm.h3
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);