Fix compile error on GCC 4.x

diff --git a/vm/callstack.cpp b/vm/callstack.cpp
index 38fb1e2b33f190b561f0561a05d6eaa4daa024eb..39988ae976406eb35033402ea5a336a684ddf3b1 100755 (executable)
--- a/vm/callstack.cpp
+++ b/vm/callstack.cpp
@@ -110,16 +110,18 @@ cell frame_scan(stack_frame *frame)
        switch(frame_type(frame))
        {
        case QUOTATION_TYPE:
-               cell quot = frame_executing(frame);
-               if(quot == F)
-                       return F;
-               else
                {
-                       char *return_addr = (char *)FRAME_RETURN_ADDRESS(frame);
-                       char *quot_xt = (char *)(frame_code(frame) + 1);
-
-                       return tag_fixnum(quot_code_offset_to_scan(
-                               quot,(cell)(return_addr - quot_xt)));
+                       cell quot = frame_executing(frame);
+                       if(quot == F)
+                               return F;
+                       else
+                       {
+                               char *return_addr = (char *)FRAME_RETURN_ADDRESS(frame);
+                               char *quot_xt = (char *)(frame_code(frame) + 1);
+
+                               return tag_fixnum(quot_code_offset_to_scan(
+                                       quot,(cell)(return_addr - quot_xt)));
+                       }
                }
        case WORD_TYPE:
                return F;