diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-21 18:28:06 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-21 18:28:06 +0100 |
commit | e7f9ababe0532c9b086ffa6b3825d0dafc9364bc (patch) | |
tree | 1362ff013e2f19b3c9e51cdce96ea8b2c789ac83 /libguile/control.c | |
parent | 55ee3607003702ef5c53994c6216b9f0f835e0f1 (diff) | |
download | guile-e7f9ababe0532c9b086ffa6b3825d0dafc9364bc.tar.gz |
scm_the_vm now returns raw struct scm_vm pointer
* libguile/vm.h (scm_the_vm): Return struct scm_vm*.
(scm_c_vm_run): Remove.
* libguile/control.c:
* libguile/eval.c:
* libguile/throw.c:
* libguile/vm.c: Adapt.
Diffstat (limited to 'libguile/control.c')
-rw-r--r-- | libguile/control.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/control.c b/libguile/control.c index f4abce11b..347d69715 100644 --- a/libguile/control.c +++ b/libguile/control.c @@ -198,7 +198,7 @@ SCM_DEFINE (scm_abort_to_prompt_star, "abort-to-prompt*", 2, 0, 0, for (i = 0; i < n; i++, args = scm_cdr (args)) argv[i] = scm_car (args); - scm_c_abort (SCM_VM_DATA (scm_the_vm ()), tag, n, argv, NULL); + scm_c_abort (scm_the_vm (), tag, n, argv, NULL); /* Oh, what, you're still here? The abort must have been reinstated. Actually, that's quite impossible, given that we're already in C-land here, so... |