Fixed a Scheme translation bug; cleaned compilation with GCC 4.

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

diff --git a/src/vm.c b/src/vm.c
index 242a7dd..af1b026 100644 (file)
--- a/src/vm.c
+++ b/src/vm.c
@@ -175,7 +175,7 @@ vm_heapify_frames_1 (struct scm_vm *vp, SCM *fp, SCM *sp, SCM **destp)
       frame = scm_c_make_heap_frame (fp);
       fp = SCM_HEAP_FRAME_POINTER (frame);
       SCM_FRAME_HEAP_LINK (fp)    = link;
-      SCM_FRAME_DYNAMIC_LINK (fp) = SCM_HEAP_FRAME_POINTER (link);
+      SCM_FRAME_SET_DYNAMIC_LINK (fp, SCM_HEAP_FRAME_POINTER (link));
     }
 
   /* Move stack data */