Feedback

Author: KevinRansom

src/fsharp/fsc.fs

@@ -840,11 +840,16 @@ module MainModuleBuilder =
         let parseOrZero i (v:string) =
             let v =
                 // When i = 3 then this is the 4th part of the version.  The last part of the version can be trailed by any characters so we trim them off
-                if i <> 3 then v
+                if i <> 3 then
+                    v
                 else
-                    v |> Seq.fold(fun (finished, v) c -> match finished with
-                                                         | false when Char.IsDigit(c) -> false, v + c.ToString()
-                                                         | _ -> true, v) (false, "") |> snd
+                    ((false, ""), v)
+                    ||> Seq.fold(fun (finished, v) c ->
+                        if finished || Char.IsDigit(c) then
+                            false, v + c.ToString()
+                        else
+                            true, v)
+                    |> snd
             match System.UInt16.TryParse v with
             | (true, i) -> i
             | (false, _) -> 0us