From 82e9eedd3985bcb59fe89551b5817c059463420e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 3 Nov 2008 07:15:09 -0600
Subject: [PATCH] Forgot about float= intrinsic

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

diff --git a/basis/compiler/cfg/intrinsics/intrinsics.factor b/basis/compiler/cfg/intrinsics/intrinsics.factor
index 338eaab955..3fd54d2e07 100644
--- a/basis/compiler/cfg/intrinsics/intrinsics.factor
+++ b/basis/compiler/cfg/intrinsics/intrinsics.factor
@@ -76,6 +76,7 @@ IN: compiler.cfg.intrinsics
         math.private:float<=
         math.private:float>
         math.private:float>=
+        math.private:float=
         alien.accessors:alien-float
         alien.accessors:set-alien-float
         alien.accessors:alien-double
@@ -108,7 +109,7 @@ IN: compiler.cfg.intrinsics
         { \ math.private:float<= [ drop cc<= emit-float-comparison ] }
         { \ math.private:float>= [ drop cc>= emit-float-comparison ] }
         { \ math.private:float> [ drop cc> emit-float-comparison ] }
-        { \ math.private:float= [ drop cc> emit-float-comparison ] }
+        { \ math.private:float= [ drop cc= emit-float-comparison ] }
         { \ math.private:float>fixnum [ drop emit-float>fixnum ] }
         { \ math.private:fixnum>float [ drop emit-fixnum>float ] }
         { \ slots.private:slot [ emit-slot ] }