Update IlxGen.fs (#7227)

dotnet · Jul 14, 2019 · f9a8e2a · f9a8e2a
1 parent 7780cab
commit f9a8e2a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/fsharp/IlxGen.fs b/src/fsharp/IlxGen.fs
@@ -2533,7 +2533,8 @@ and GenAllocUnionCase cenv cgbuf eenv (c,tyargs,args,m) sequel =
     GenSequel cenv eenv.cloc cgbuf sequel
 
 and GenLinearExpr cenv cgbuf eenv sp expr sequel canProcessSequencePoint (contf: FakeUnit -> FakeUnit) =
-    match stripExpr expr with 
+    let expr = stripExpr expr
+    match expr with 
     | LinearOpExpr (TOp.UnionCase c, tyargs, argsFront, argLast, m) ->
         GenExprs cenv cgbuf eenv argsFront
         GenLinearExpr cenv cgbuf eenv SPSuppress argLast Continue (* canProcessSequencePoint *) true (contf << (fun Fake ->