Fix compile error on GCC 4.x
parent
610b276c86
commit
6b2192bde0
|
@ -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:
|
||||
|
|
Loading…
Reference in New Issue