One more occasion

Author: psfinaki

src/Compiler/Facilities/DiagnosticsLogger.fs

@@ -169,6 +169,7 @@ let QuitProcessExiter =
         member _.Exit n =
             try
                 Environment.Exit n
+                raise StopProcessing
             with _ ->
                 ()
 

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,