steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bootstrap hang

release
Slava Pestov 2007-10-24 02:01:43 -04:00
parent 9d80b13932
commit 850c145a09
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/math/math.factor
View File

@ -91,6 +91,10 @@ M: real hashcode* nip >fixnum ;
M: real <=> - ; M: real <=> - ;
! real and sequence overlap. we disambiguate: ! real and sequence overlap. we disambiguate:
M: integer equal? number= ;
M: integer hashcode* nip >fixnum ;
M: integer <=> - ; M: integer <=> - ;
GENERIC: fp-nan? ( x -- ? ) GENERIC: fp-nan? ( x -- ? )

1
vm/debug.c
View File

@ -111,6 +111,7 @@ void print_stack_frame(F_STACK_FRAME *frame)
printf("\n"); printf("\n");
print_obj(frame_scan(frame)); print_obj(frame_scan(frame));
printf("\n"); printf("\n");
printf("%lx\n",(CELL)frame_executing(frame));
printf("%lx\n",(CELL)frame->xt); printf("%lx\n",(CELL)frame->xt);
} }