From 445c7f299ab1cbbae29b4a71e8852d51aefb9f3e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 8 Jun 2014 18:02:16 -0700 Subject: [PATCH] stack-checker.known-words: adding bignum>fixnum-strict. --- basis/stack-checker/known-words/known-words.factor | 1 + 1 file changed, 1 insertion(+) diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor index d6a92cbf08..7e9ce01206 100644 --- a/basis/stack-checker/known-words/known-words.factor +++ b/basis/stack-checker/known-words/known-words.factor @@ -344,6 +344,7 @@ M: object infer-call* \ call bad-macro-input ; \ bignum> { bignum bignum } { object } define-primitive \ bignum> make-foldable \ bignum>= { bignum bignum } { object } define-primitive \ bignum>= make-foldable \ bignum>fixnum { bignum } { fixnum } define-primitive \ bignum>fixnum make-foldable +\ bignum>fixnum-strict { bignum } { fixnum } define-primitive \ bignum>fixnum-strict make-foldable \ bits>double { integer } { float } define-primitive \ bits>double make-foldable \ bits>float { integer } { float } define-primitive \ bits>float make-foldable \ both-fixnums? { object object } { object } define-primitive