From ee4652702340a2da4fa716d635aa7d99ff7f6b99 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 29 Apr 2008 03:59:41 -0500
Subject: [PATCH] Fix tests

---
 core/math/integers/integers-tests.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/math/integers/integers-tests.factor b/core/math/integers/integers-tests.factor
index 93567ee71a..d576bb312f 100755
--- a/core/math/integers/integers-tests.factor
+++ b/core/math/integers/integers-tests.factor
@@ -192,6 +192,8 @@ unit-test
 [ f ] [ 0 power-of-2? ] unit-test
 [ t ] [ 1 power-of-2? ] unit-test
 
+: ratio>float [ >bignum ] bi@ /f ;
+
 [ 5. ] [ 5 1 ratio>float ] unit-test
 [ 4. ] [ 4 1 ratio>float ] unit-test
 [ 2. ] [ 2 1 ratio>float ] unit-test
@@ -214,6 +216,6 @@ unit-test
         drop
         random-integer
         random-integer
-        [ >float / ] [ ratio>float ] 2bi 0.1 ~
+        [ >float / ] [ /f ] 2bi 0.1 ~
     ] all?
 ] unit-test