summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-21 14:59:58 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-21 15:00:03 +0100
commite08caa5620ded01fc303169b8e8d81c11e78d4ac (patch)
treeae399665ea393775842667bec3f156aa91c724a9 /libguile
parent89b235afd34482f2e7d2af553f43d0744895ee83 (diff)
downloadguile-e08caa5620ded01fc303169b8e8d81c11e78d4ac.tar.gz
Remove make-vm; there will be one vm per thread now.
* libguile/vm.h: * libguile/vm.c (scm_make_vm): Remove. * module/system/vm/vm.scm: Remove make-vm export. * test-suite/tests/control.test ("the-vm"): * test-suite/tests/coverage.test (%test-vm): * test-suite/tests/eval.test ("stack overflow"): Adapt tests.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/vm.c9
-rw-r--r--libguile/vm.h3
2 files changed, 0 insertions, 12 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index acb325044..6bbf251f2 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -856,15 +856,6 @@ SCM_DEFINE (scm_vm_p, "vm?", 1, 0, 0,
}
#undef FUNC_NAME
-SCM_DEFINE (scm_make_vm, "make-vm", 0, 0, 0,
- (void),
- "")
-#define FUNC_NAME s_scm_make_vm,
-{
- return make_vm ();
-}
-#undef FUNC_NAME
-
SCM_DEFINE (scm_vm_ip, "vm:ip", 1, 0, 0,
(SCM vm),
"")
diff --git a/libguile/vm.h b/libguile/vm.h
index bb0745420..e46176481 100644
--- a/libguile/vm.h
+++ b/libguile/vm.h
@@ -57,9 +57,6 @@ SCM_API SCM scm_the_vm_fluid;
#define SCM_VALIDATE_VM(pos,x) SCM_MAKE_VALIDATE (pos, x, VM_P)
SCM_API SCM scm_the_vm (void);
-SCM_API SCM scm_make_vm (void);
-
-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);