guile/guile-vm/src vm_system.c

[Keisuke Nishida]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Keisuke Nishida <address@hidden>        00/09/22 04:08:17

Modified files:
        guile-vm/src   : vm_system.c 

Log message:
        * src/vm_system.c (call): Call return-hook before reinstating a
        continuation.
        (tail_call): Call return-hook before a proper tail call.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-vm/src/vm_system.c.diff?r1=1.9&r2=1.10

Patches:
Index: guile/guile-vm/src/vm_system.c
diff -u guile/guile-vm/src/vm_system.c:1.9 guile/guile-vm/src/vm_system.c:1.10
--- guile/guile-vm/src/vm_system.c:1.9  Wed Sep 20 14:13:12 2000
+++ guile/guile-vm/src/vm_system.c      Fri Sep 22 04:08:17 2000
@@ -466,10 +466,10 @@
        scm_wrong_num_args (ac);
 
       /* Reinstate the continuation */
+      VM_RETURN_HOOK ();
       SCM_VM_REINSTATE_CONT (vmp, ac);
       LOAD ();
       POP (ac); /* return value */
-      VM_RETURN_HOOK ();
       NEXT;
     }
 
@@ -519,6 +519,7 @@
          /* FIXME: Must remove the last frame.
             FIXME: We need to move arguments before that. */
          SCM *last_fp = fp;
+         VM_RETURN_HOOK ();
          VM_NEW_FRAME (fp, ac,
                        SCM_VM_FRAME_DYNAMIC_LINK (last_fp),
                        SCM_VM_FRAME_STACK_POINTER (last_fp),