anchor.diff:  let inline protectAssemblyExploration dflt f = 
       try 
          f()
  -     with 
  -        | UnresolvedPathReferenceNoRange _ -> dflt
  -        | _ -> reraise()
  +    with
  +    | UnresolvedPathReferenceNoRange _ -> dflt
  +    | _ -> reraise()
   
   let inline protectAssemblyExplorationF dflt f = 
       try 
          f()
  -     with 
  -        | UnresolvedPathReferenceNoRange (asmName, path) -> dflt(asmName, path)
  -        | _ -> reraise()
  +    with
  +    | UnresolvedPathReferenceNoRange (asmName, path) -> dflt(asmName, path)
  +    | _ -> reraise()
   
   let inline protectAssemblyExplorationNoReraise dflt1 dflt2 f  = 
       try 
          f()
  -     with 
  -        | UnresolvedPathReferenceNoRange _ -> dflt1
  -        | _ -> dflt2
  +    with
  +    | UnresolvedPathReferenceNoRange _ -> dflt1
  +    | _ -> dflt2
   
   // Attach a range if this is a range dual exception.
   let rec AttachRange m (exn:exn) = 
  
positive.code:     // The 'Impl' factoring enables a developer to place a breakpoint at the non-Impl 
      // code just below and get a breakpoint for all error logger implementations.
      abstract DiagnosticSink: phasedError: PhasedDiagnostic * isError: bool -> unit
      member this.DebugDisplay() = sprintf "ErrorLogger(%s)" nameForDebugging
  
  let DiscardErrorsLogger = 
      { new ErrorLogger("DiscardErrorsLogger") with 
  
negative.code: 
  let QuitProcessExiter =  
      { new Exiter with  
          member __.Exit(n) =                     
              try  
                  System.Environment.Exit(n) 
              with _ ->  
                  ()             
              FSComp.SR.elSysEnvExitDidntExit()
              |> failwith } 
  
  /// Closed enumeration of build phases.
  [<RequireQualifiedAccess>]
  type BuildPhase =
      | DefaultPhase 
      | Compile 
      | Parameter | Parse | TypeCheck 
      | CodeGen 
      | Optimize | IlxGen | IlGen | Output 
      | Interactive // An error seen during interactive execution
      
  /// Literal build phase subcategory strings.
  