mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +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

2
libguile/control.c
View file

@ -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...