Fix #68 - filter out type initializer from Type.GetConstructor portable implementation

src/fsharp/FSharp.Core.Unittests/FSharp.Core/Microsoft.FSharp.Quotations/FSharpQuotations.fs

@@ -67,3 +67,7 @@ type FSharpQuotationsTests() =
                 let wrongValue = <@ "!" @>
                 Check.argumentException(fun () -> ExprShape.RebuildShapeCombination(shape, [wrongValue;lambda]))
         |   _ -> Assert.Fail()
+
+    [<Test>]
+    member x.GetConstructorFiltersOutStaticConstructor() =
+        ignore <@ System.Exception() @>
\ No newline at end of file

src/fsharp/FSharp.Core/reflect.fs

@@ -125,9 +125,12 @@ module ReflectionAdapters =
         member this.GetConstructor(parameterTypes : Type[]) = 
             this.GetTypeInfo().DeclaredConstructors
             |> Seq.filter (fun ci ->
-                let parameters = ci.GetParameters()
-                (parameters.Length = parameterTypes.Length) &&
-                (parameterTypes, parameters) ||> Array.forall2 (fun ty pi -> pi.ParameterType.Equals ty) 
+                not ci.IsStatic && //exclude type initializer
+                (
+                    let parameters = ci.GetParameters()
+                    (parameters.Length = parameterTypes.Length) &&
+                    (parameterTypes, parameters) ||> Array.forall2 (fun ty pi -> pi.ParameterType.Equals ty) 
+                )
             )
             |> Seq.toArray
             |> commit