mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

scm_the_vm now returns raw struct scm_vm pointer

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2013-11-21 18:28:06 +01:00
parent 55ee360700
commit e7f9ababe0
5 changed files with 17 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/eval.c
View file

@ -447,7 +447,7 @@ eval (SCM x, SCM env)
k = EVAL1 (CAR (mx), env);
handler = EVAL1 (CDDR (mx), env);
vp = SCM_VM_DATA (scm_the_vm ());
vp = scm_the_vm ();
/* Push the prompt onto the dynamic stack. */
scm_dynstack_push_prompt (&SCM_I_CURRENT_THREAD->dynstack,
@ -463,7 +463,7 @@ eval (SCM x, SCM env)
{
/* The prompt exited nonlocally. */
proc = handler;
vp = SCM_VM_DATA (scm_the_vm ());
vp = scm_the_vm ();
args = scm_i_prompt_pop_abort_args_x (vp);
goto apply_proc;
}