From 1f2b250ed9e8cb1c2466c939a9a305461db71739 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@gmail.com>
Date: Tue, 26 Jan 2010 07:35:09 +0300
Subject: [PATCH] fixed a bug in (not) handling variable-size frames in
 ikarus-exec.

---
 scheme/last-revision | 2 +-
 src/ikarus-exec.c    | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index e4cda12..ca9d3da 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1868
+1869
diff --git a/src/ikarus-exec.c b/src/ikarus-exec.c
index ddf2ab0..ed1281e 100644
--- a/src/ikarus-exec.c
+++ b/src/ikarus-exec.c
@@ -40,6 +40,9 @@ ikptr ik_exec_code(ikpcb* pcb, ikptr code_ptr, ikptr argcount, ikptr cp){
     fprintf(stderr, "exec framesize=0x%016lx  ksize=%ld  rp=0x%016lx\n", 
         framesize, k->size, rp);
 #endif
+    if(framesize == 0){
+      framesize = ref(top, wordsize);
+    }
     if(framesize <= 0){
       fprintf(stderr, "invalid framesize %ld\n", framesize);
       exit(-10);