Set: optimize comparer: Set.Compare returns only [-1,0,1]

dotnet · Jan 10, 2021 · 0900934 · 0900934
1 parent 3386a33
commit 0900934
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/fsharp/FSharp.Core/set.fs b/src/fsharp/FSharp.Core/set.fs
@@ -531,7 +531,9 @@ module internal SetTree =
             else -1
         else
             if isEmpty t2 then 1
-            else compareStacks [t1] [t2]
+            else
+                let c = compareStacks [t1] [t2]
+                if c > 0 then 1 else if c = 0 then 0 else -1
 
     let choose s =
         minimumElement s