Fix compile error on GCC 4.x

db4
Slava Pestov 2009-05-20 20:01:21 -04:00
parent 610b276c86
commit 6b2192bde0
1 changed files with 10 additions and 8 deletions

View File

@ -110,6 +110,7 @@ cell frame_scan(stack_frame *frame)
switch(frame_type(frame))
{
case QUOTATION_TYPE:
{
cell quot = frame_executing(frame);
if(quot == F)
return F;
@ -121,6 +122,7 @@ cell frame_scan(stack_frame *frame)
return tag_fixnum(quot_code_offset_to_scan(
quot,(cell)(return_addr - quot_xt)));
}
}
case WORD_TYPE:
return F;
default: