diff options
author | Andy Wingo <wingo@pobox.com> | 2010-09-25 12:16:05 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-09-25 12:16:05 +0200 |
commit | 038cb3428f4c3686841e5a597164db28c2200dc7 (patch) | |
tree | 2ce252fd8d5aba7ad69b4479c12c410ffd483765 /libguile/vm.c | |
parent | 85d3a8a63dbac7aa8aa5a70b0719be2277355b87 (diff) | |
download | guile-038cb3428f4c3686841e5a597164db28c2200dc7.tar.gz |
remove vm-version, vm options
* libguile/vm.h (struct scm_vm): Remove "options" member.
* libguile/vm.c (scm_vm_version, scm_vm_option, scm_set_vm_option_x):
Remove.
* module/system/vm/vm.scm (vm-version, vm-option, set-vm-option!):
Remove.
(vms:time, vms:clock): Remove these unused definitions.
(vm-load): Remove. "Load" should be reserved for things that exist on
disk, methinks.
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index b229c2799..7512d10ff 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -513,7 +513,6 @@ make_vm (void) vp->sp = vp->stack_base - 1; vp->fp = NULL; vp->engine = SCM_VM_DEBUG_ENGINE; - vp->options = SCM_EOL; vp->trace_level = 0; for (i = 0; i < SCM_VM_NUM_HOOKS; i++) vp->hooks[i] = SCM_BOOL_F; @@ -588,15 +587,6 @@ SCM_DEFINE (scm_vm_apply, "vm-apply", 3, 0, 0, /* Scheme interface */ -SCM_DEFINE (scm_vm_version, "vm-version", 0, 0, 0, - (void), - "") -#define FUNC_NAME s_scm_vm_version -{ - return scm_from_locale_string (PACKAGE_VERSION); -} -#undef FUNC_NAME - /* Return T's VM. */ static inline SCM thread_vm (scm_i_thread *t) @@ -759,28 +749,6 @@ SCM_DEFINE (scm_vm_restore_continuation_hook, "vm-restore-continuation-hook", 1, } #undef FUNC_NAME -SCM_DEFINE (scm_vm_option, "vm-option", 2, 0, 0, - (SCM vm, SCM key), - "") -#define FUNC_NAME s_scm_vm_option -{ - SCM_VALIDATE_VM (1, vm); - return scm_assq_ref (SCM_VM_DATA (vm)->options, key); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_set_vm_option_x, "set-vm-option!", 3, 0, 0, - (SCM vm, SCM key, SCM val), - "") -#define FUNC_NAME s_scm_set_vm_option_x -{ - SCM_VALIDATE_VM (1, vm); - SCM_VM_DATA (vm)->options - = scm_assq_set_x (SCM_VM_DATA (vm)->options, key, val); - return SCM_UNSPECIFIED; -} -#undef FUNC_NAME - SCM_DEFINE (scm_vm_trace_level, "vm-trace-level", 1, 0, 0, (SCM vm), "") |