Renamed key to safeKey where appropriate

As per
#549 (diff)

src/fsharp/FSharp.Core/array.fs

@@ -177,9 +177,9 @@ namespace Microsoft.FSharp.Collections
 
             // Build the groupings
             for v in array do
-                let key = projection v
+                let safeKey = projection v
                 let mutable prev = Unchecked.defaultof<_>
-                if dict.TryGetValue(key, &prev) then dict.[key] <- prev + 1 else dict.[key] <- 1
+                if dict.TryGetValue(safeKey, &prev) then dict.[safeKey] <- prev + 1 else dict.[safeKey] <- 1
 
             let res = Microsoft.FSharp.Primitives.Basics.Array.zeroCreateUnchecked dict.Count
             let mutable i = 0
@@ -435,13 +435,13 @@ namespace Microsoft.FSharp.Collections
             // Build the groupings
             for i = 0 to (array.Length - 1) do
                 let v = array.[i]
-                let key = keyf v
+                let safeKey = keyf v
                 let mutable prev = Unchecked.defaultof<_>
-                if dict.TryGetValue(key, &prev) then
+                if dict.TryGetValue(safeKey, &prev) then
                     prev.Add v
                 else 
                     let prev = ResizeArray initialBucketSize
-                    dict.[key] <- prev
+                    dict.[safeKey] <- prev
                     prev.Add v
 
             // Return the array-of-arrays.

src/fsharp/FSharp.Core/fslib-extra-pervasives.fs

@@ -64,8 +64,8 @@ module ExtraTopLevelOperators =
                 member s.Add(k,v) = raise (NotSupportedException(SR.GetString(SR.thisValueCannotBeMutated)))
                 member s.ContainsKey(k) = d.ContainsKey(makeSafeKey k)
                 member s.TryGetValue(k,r) = 
-                    let key = makeSafeKey k
-                    if d.ContainsKey(key) then (r <- d.[key]; true) else false
+                    let safeKey = makeSafeKey k
+                    if d.ContainsKey(safeKey) then (r <- d.[safeKey]; true) else false
                 member s.Remove(k : 'Key) = (raise (NotSupportedException(SR.GetString(SR.thisValueCannotBeMutated))) : bool) 
           interface ICollection<KeyValuePair<'Key, 'T>> with 
                 member s.Add(x) = raise (NotSupportedException(SR.GetString(SR.thisValueCannotBeMutated)));

src/fsharp/FSharp.Core/list.fs

@@ -47,9 +47,9 @@ namespace Microsoft.FSharp.Collections
                 match srcList with
                 | [] -> ()
                 | h::t ->
-                    let key = projection h
+                    let safeKey = projection h
                     let mutable prev = 0
-                    if dict.TryGetValue(key, &prev) then dict.[key] <- prev + 1 else dict.[key] <- 1
+                    if dict.TryGetValue(safeKey, &prev) then dict.[safeKey] <- prev + 1 else dict.[safeKey] <- 1
                     loop t
             loop list
             let mutable result = []
@@ -462,13 +462,13 @@ namespace Microsoft.FSharp.Collections
             let rec loop list =
                 match list with
                 | v :: t -> 
-                    let key = keyf v
+                    let safeKey = keyf v
                     let mutable prev = Unchecked.defaultof<_>
-                    if dict.TryGetValue(key, &prev) then
+                    if dict.TryGetValue(safeKey, &prev) then
                         prev.Add v
                     else 
                         let prev = ResizeArray initialBucketSize
-                        dict.[key] <- prev
+                        dict.[safeKey] <- prev
                         prev.Add v
                     loop t
                 | _ -> ()

src/fsharp/FSharp.Core/seq.fs

@@ -1456,13 +1456,13 @@ namespace Microsoft.FSharp.Collections
 
             // Build the groupings
             seq |> iter (fun v -> 
-                let key = keyf v
+                let safeKey = keyf v
                 let mutable prev = Unchecked.defaultof<_>
-                match dict.TryGetValue (key, &prev) with
+                match dict.TryGetValue (safeKey, &prev) with
                 | true -> prev.Add v
                 | false ->
                     let prev = ResizeArray minimumBucketSize
-                    dict.[key] <- prev
+                    dict.[safeKey] <- prev
                     prev.Add v)
 
             // Trim the size of each result group, don't trim very small buckets, as excessive work, and garbage for 
@@ -1548,11 +1548,11 @@ namespace Microsoft.FSharp.Collections
 
             // Build the groupings
             source |> iter (fun v -> 
-                let key = keyf v
+                let safeKey = keyf v
                 let mutable prev = Unchecked.defaultof<_>
-                if dict.TryGetValue(key, &prev)
-                    then dict.[key] <- prev + 1
-                    else dict.[key] <- 1)
+                if dict.TryGetValue(safeKey, &prev)
+                    then dict.[safeKey] <- prev + 1
+                    else dict.[safeKey] <- 1)
 
             dict |> map (fun group -> (getKey group.Key, group.Value))