From 850c145a09ae6463fffb60b79de85eff312d77ca Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 24 Oct 2007 02:01:43 -0400 Subject: [PATCH] Fix bootstrap hang --- core/math/math.factor | 4 ++++ vm/debug.c | 1 + 2 files changed, 5 insertions(+) diff --git a/core/math/math.factor b/core/math/math.factor index 7f796e91b7..fea77855eb 100755 --- a/core/math/math.factor +++ b/core/math/math.factor @@ -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 -- ? ) diff --git a/vm/debug.c b/vm/debug.c index d8cfd1c599..b0761a4c5c 100755 --- a/vm/debug.c +++ b/vm/debug.c @@ -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); }