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

Remove last use of SCM vm

Browse source 
* libguile/threads.h (scm_i_thread): Hold a struct scm_vm*, not a SCM
  vm.
* libguile/threads.c (guilify_self_2):
* libguile/vm.c (make_vm): Adapt.
This commit is contained in:
Andy Wingo 2013-11-21 18:33:06 +01:00
parent e7f9ababe0
commit 3506b1521e
3 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/threads.c
View file

@ -614,7 +614,7 @@ guilify_self_2 (SCM parent)
t->continuation_root = scm_cons (t->handle, SCM_EOL);
t->continuation_base = t->base;
t->vm = SCM_BOOL_F;
t->vp = NULL;
if (scm_is_true (parent))
t->dynamic_state = scm_make_dynamic_state (parent);