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.

diff --git a/libguile/vm.c b/libguile/vm.c
index 6bbf251..f7fac95 100644 (file)
--- 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 e461764..a71fd0f 100644 (file)
--- 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);

diff --git a/module/system/vm/vm.scm b/module/system/vm/vm.scm
index 8f830cc..f459f0a 100644 (file)
--- a/module/system/vm/vm.scm
+++ b/module/system/vm/vm.scm
@@ -21,8 +21,6 @@
 (define-module (system vm vm)
   #:export (vm?
             the-vm call-with-vm
-            vm:ip vm:sp vm:fp
-
             vm-trace-level set-vm-trace-level!
             vm-engine set-vm-engine! set-default-vm-engine!
             vm-push-continuation-hook vm-pop-continuation-hook