mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-23 06:17:52 +00:00
parent af988bbf9c
commit a6df585ae7
4 changed files with 23 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/vm_system.c
View file

@ -54,9 +54,10 @@ VM_DEFINE_INSTRUCTION (nop, "nop", 0, 0, 0)
VM_DEFINE_INSTRUCTION (halt, "halt", 0, 0, 0)
{
SCM ret = *sp;
SCM ret;
vp->time += scm_c_get_internal_run_time () - start_time;
HALT_HOOK ();
POP (ret);
FREE_FRAME ();
SYNC_ALL ();
return ret;
@ -490,9 +491,9 @@ VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
{
SCM ret;
vm_return:
POP (ret);
EXIT_HOOK ();
RETURN_HOOK ();
POP (ret);
FREE_FRAME ();
/* Restore the last program */