Update to F# 1.9.9.9.

2 files changed, 6 insertions, 6 deletions

diff --git a/Source/Basetypes/BigNum.ssc b/Source/Basetypes/BigNum.ssc
index fe7c7e0d..b8ebcde0 100644
--- a/Source/Basetypes/BigNum.ssc
+++ b/Source/Basetypes/BigNum.ssc
@@ -70,7 +70,7 @@ namespace Microsoft.Basetypes {
     // Convert to int, without checking whether overflows occur

     public int ToInt {

       get {

-        return BIM.ToInt32(val);

+        return (int)val;

       }

     }

 

@@ -148,7 +148,7 @@ namespace Microsoft.Basetypes {
         System.Numerics.BigInteger rem = this.Abs.val;

 

         while (rem > BIM.Zero) {

-          res = BIM.ToInt32(rem %BI_2_TO_24).ToString(format) + res;

+          res = ((int)(rem %BI_2_TO_24)).ToString(format) + res;

           rem = rem / BI_2_TO_24;

         }

 

diff --git a/Source/Basetypes/Rational.ssc b/Source/Basetypes/Rational.ssc
index 08485cdc..ca87b223 100644
--- a/Source/Basetypes/Rational.ssc
+++ b/Source/Basetypes/Rational.ssc
@@ -8,7 +8,7 @@ using Microsoft.Contracts;
 

 namespace Microsoft.Basetypes

 {

-  using BNM = Microsoft.FSharp.Math.BigNum;

+  using BNM = Microsoft.FSharp.Math.BigRational;

 

   /// <summary>

   /// The representation of a rational number.

@@ -19,9 +19,9 @@ namespace Microsoft.Basetypes
     public static readonly Rational ONE  = new Rational ((!)BNM.One);

     public static readonly Rational MINUS_ONE = new Rational ((!)(-BNM.One));

 

-    private readonly Microsoft.FSharp.Math.BigNum _val;

+    private readonly Microsoft.FSharp.Math.BigRational _val;

 

-    private Microsoft.FSharp.Math.BigNum! val {

+    private Microsoft.FSharp.Math.BigRational! val {

       get {

         if (_val == null)

           return (!)BNM.Zero;

@@ -48,7 +48,7 @@ namespace Microsoft.Basetypes
       return new Rational(x);

     }

 

-    private Rational(Microsoft.FSharp.Math.BigNum! val) {

+    private Rational(Microsoft.FSharp.Math.BigRational! val) {

       this._val = val;

     }