Fix bootstrap hang
parent
9d80b13932
commit
850c145a09
|
@ -91,6 +91,10 @@ M: real hashcode* nip >fixnum ;
|
|||
M: real <=> - ;
|
||||
|
||||
! real and sequence overlap. we disambiguate:
|
||||
M: integer equal? number= ;
|
||||
|
||||
M: integer hashcode* nip >fixnum ;
|
||||
|
||||
M: integer <=> - ;
|
||||
|
||||
GENERIC: fp-nan? ( x -- ? )
|
||||
|
|
|
@ -111,6 +111,7 @@ void print_stack_frame(F_STACK_FRAME *frame)
|
|||
printf("\n");
|
||||
print_obj(frame_scan(frame));
|
||||
printf("\n");
|
||||
printf("%lx\n",(CELL)frame_executing(frame));
|
||||
printf("%lx\n",(CELL)frame->xt);
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue