From 4f76b0ebee734c324cae8d5684729093c7169144 Mon Sep 17 00:00:00 2001
From: Patrick McDonald <PaddyMcDonald@gmail.com>
Date: Mon, 29 Feb 2016 22:49:00 +0000
Subject: [PATCH] Fix naming error

---
 .../Microsoft.FSharp.Collections/ListProperties.fs            | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Collections/ListProperties.fs b/src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Collections/ListProperties.fs
index 1cb91e71ed4..5d8fbe922f8 100644
--- a/src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Collections/ListProperties.fs
+++ b/src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Collections/ListProperties.fs
@@ -846,9 +846,9 @@ let ``List.allPairs first elements are correct`` () =
     Check.QuickThrowOnFailure allPairsFst<NormalFloat, NormalFloat>
 
 let allPairsSnd<'a, 'b when 'b : equality> (xs : 'a list) (ys : 'b list) =
-    let pairsFst = List.allPairs xs ys |> List.map snd
+    let pairsSnd = List.allPairs xs ys |> List.map snd
     let check = [ for i in 1 .. xs.Length do yield! ys ]
-    pairsFst = check
+    pairsSnd = check
 
 [<Test>]
 let ``List.allPairs second elements are correct`` () =