Using "same?" in more places.

[factor.git] / extra / decimals / decimals.factor

diff --git a/extra/decimals/decimals.factor b/extra/decimals/decimals.factor
index 3cd51abc98e8787a89863c30e0dc224c0b2f4056..a356e8a6e101273183c48d93e470d31b9df41c51 100644 (file)
--- a/extra/decimals/decimals.factor
+++ b/extra/decimals/decimals.factor
@@ -51,8 +51,8 @@ M: decimal equal?
         [
             scale-decimals
             {
-                [ [ mantissa>> ] bi@ = ]
-                [ [ exponent>> ] bi@ = ]
+                [ [ mantissa>> ] same? ]
+                [ [ exponent>> ] same? ]
             } 2&&
         ]
     } 2&& ;