One more occasion

dotnet · Sep 13, 2022 · 60f5b6a · 60f5b6a
1 parent 9b7b640
commit 60f5b6a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Compiler/Facilities/DiagnosticsLogger.fs b/src/Compiler/Facilities/DiagnosticsLogger.fs
@@ -169,6 +169,7 @@ let QuitProcessExiter =
         member _.Exit n =
             try
                 Environment.Exit n
+                raise StopProcessing
             with _ ->
                 ()
 

diff --git a/src/Compiler/Legacy/LegacyHostedCompilerForTesting.fs b/src/Compiler/Legacy/LegacyHostedCompilerForTesting.fs
@@ -8,6 +8,7 @@ namespace FSharp.Compiler.CodeAnalysis.Hosted
 open System
 open System.IO
 open System.Text.RegularExpressions
+open FSharp.Compiler
 open FSharp.Compiler.Diagnostics
 open FSharp.Compiler.Driver
 open FSharp.Compiler.DiagnosticsLogger
@@ -97,9 +98,7 @@ type internal InProcCompiler(legacyReferenceResolver) =
 
         let loggerProvider = InProcDiagnosticsLoggerProvider()
         let mutable exitCode = 0
-        let exiter = 
-            { new Exiter with
-                 member _.Exit n = exitCode <- n; raise StopProcessing }
+        let exiter = DiagnosticsLogger.QuitProcessExiter
         try 
             CompileFromCommandLineArguments (
                 ctok, argv, legacyReferenceResolver,