*** empty log message ***

[bpt/guile.git] / src / vm_system.c

diff --git a/src/vm_system.c b/src/vm_system.c
index 9ec9ce3..1fa3625 100644 (file)
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -488,9 +488,9 @@ VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
   FREE_FRAME ();
 
   /* Restore the last program */
-  external = fp[bp->nargs + bp->nlocs];
   program = SCM_VM_FRAME_PROGRAM (fp);
   CACHE_PROGRAM ();
+  external = fp[bp->nargs + bp->nlocs];
   PUSH (ret);
   NEXT;
 }