From dc71bd4caaea167192f037e7deb5eb88c52548be Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 13 Aug 2015 14:47:01 -0700 Subject: [PATCH] stack-checker: old bug, float>fixnum was not foldable!! --- basis/stack-checker/known-words/known-words.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor index aa7c8d07ac..b324bd2e66 100644 --- a/basis/stack-checker/known-words/known-words.factor +++ b/basis/stack-checker/known-words/known-words.factor @@ -412,7 +412,7 @@ M: object infer-call* \ call bad-macro-input ; \ float>= { float float } { object } define-primitive \ float>= make-foldable \ float>bignum { float } { bignum } define-primitive \ float>bignum make-foldable \ float>bits { real } { integer } define-primitive \ float>bits make-foldable -\ float>fixnum { float } { fixnum } define-primitive \ bignum>fixnum make-foldable +\ float>fixnum { float } { fixnum } define-primitive \ float>fixnum make-foldable \ fpu-state { } { } define-primitive \ fputc { object alien } { } define-primitive \ fread-unsafe { integer c-ptr alien } { integer } define-primitive