mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +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/throw.c
View file

@ -470,7 +470,7 @@ pre_init_catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler)
/* These two are volatile, so we know we can access them after a
nonlocal return to the setjmp. */
vp = SCM_VM_DATA (scm_the_vm ());
vp = scm_the_vm ();
v_handler = handler;
/* Push the prompt onto the dynamic stack. */
@ -488,7 +488,7 @@ pre_init_catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler)
/* nonlocal exit */
SCM args;
/* vp is not volatile */
vp = SCM_VM_DATA (scm_the_vm ());
vp = scm_the_vm ();
args = scm_i_prompt_pop_abort_args_x (vp);
/* cdr past the continuation */
return scm_apply_0 (v_handler, scm_cdr (args));