|
@@ -359,11 +359,10 @@ with
|
|
|
| Parser.SyntaxCompletion(kind,subj) ->
|
|
|
DisplayOutput.handle_syntax_completion com kind subj;
|
|
|
error ctx ("Error: No completion point was found") null_pos
|
|
|
- | EvalExceptions.Sys_exit _ | Hlinterp.Sys_exit _ as exc ->
|
|
|
- raise exc
|
|
|
| DisplayException.DisplayException dex ->
|
|
|
DisplayOutput.handle_display_exception ctx dex
|
|
|
- | Out_of_memory as exc ->
|
|
|
+ | Out_of_memory | EvalExceptions.Sys_exit _ | Hlinterp.Sys_exit _ | DisplayProcessingGlobals.Completion _ as exc ->
|
|
|
+ (* We don't want these to be caught by the catchall below *)
|
|
|
raise exc
|
|
|
| e when (try Sys.getenv "OCAMLRUNPARAM" <> "b" with _ -> true) && not Helper.is_debug_run ->
|
|
|
error ctx (Printexc.to_string e) null_pos
|