From 3ee68d1ff503b1720344d9e5baeb4c0ddd003533 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 18 Jul 2009 01:07:43 -0500
Subject: [PATCH] Disable fixnum>bignum and bignum>fixnum intrinsics since
 they're not very useful and they increase code size significantly

---
 basis/compiler/cfg/intrinsics/intrinsics.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/intrinsics/intrinsics.factor b/basis/compiler/cfg/intrinsics/intrinsics.factor
index e4a7b8972a..2618db0904 100644
--- a/basis/compiler/cfg/intrinsics/intrinsics.factor
+++ b/basis/compiler/cfg/intrinsics/intrinsics.factor
@@ -41,8 +41,8 @@ IN: compiler.cfg.intrinsics
     math.private:fixnum<=
     math.private:fixnum>=
     math.private:fixnum>
-    math.private:bignum>fixnum
-    math.private:fixnum>bignum
+    ! math.private:bignum>fixnum
+    ! math.private:fixnum>bignum
     kernel:eq?
     slots.private:slot
     slots.private:set-slot