adjust fix for top level funtion expressions

Author: dsyme

src/fsharp/vs/Exprs.fs

@@ -466,13 +466,13 @@ module FSharpExprConvert =
         | Expr.Sequential _ ->
             ConvExprPrimLinear cenv env expr (fun e -> e)
 
-        | Expr.Val(vref,_vFlags,m) -> 
-            ConvValRef cenv env m vref 
-
-        | ModuleValueOrMemberUse cenv.g (vref,vFlags,_f,_fty,tyargs,curriedArgs) when (nonNil tyargs || nonNil curriedArgs) && vref.IsMemberOrModuleBinding ->
+        | ModuleValueOrMemberUse cenv.g (vref,vFlags,_f,_fty,tyargs,curriedArgs) when (* (nonNil tyargs || nonNil curriedArgs) && *) vref.IsMemberOrModuleBinding ->
             // Process applications of top-level values in a tail-recursive way
             ConvModuleValueOrMemberUseLinear cenv env (expr,vref,vFlags,tyargs,curriedArgs) (fun e -> e)
 
+        | Expr.Val(vref,_vFlags,m) -> 
+            ConvValRef cenv env m vref 
+
         // Simple applications 
         | Expr.App(f,_fty,tyargs,args,_m) -> 
             E.Application (ConvExpr cenv env f, ConvTypes cenv tyargs, ConvExprs cenv env args)