diff options
author | Andy Wingo <wingo@pobox.com> | 2008-10-16 12:55:27 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-10-16 12:55:27 +0200 |
commit | 28a2f57bde42030e96b4c2ab574336c6e8c394b5 (patch) | |
tree | 22ecb529d9e75e3ef24d446646cb0888bf5886e8 /libguile | |
parent | 2588eccdf4b69272f978305c7c79eb4c7975b92f (diff) | |
download | guile-28a2f57bde42030e96b4c2ab574336c6e8c394b5.tar.gz |
fix asyncs running in the vm; re-enable popen.scm compilation
* libguile/vm-i-system.c (goto/args): Sync the registers before doing the
SCM_TICK. We probably need a different SCM_TICK that saves the regs
only if necessary. This fixes GC problems with a compiled popen.scm.
* ice-9/Makefile.am: Re-enable popen.scm compilation.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/vm-i-system.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 251239493..80eb9249a 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -604,6 +604,7 @@ VM_DEFINE_INSTRUCTION (goto_args, "goto/args", 1, -1, 1) vm_goto_args: x = sp[-nargs]; + SYNC_REGISTER (); SCM_TICK; /* allow interrupt here */ /* |