diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/base_include | 3 | ||||
| -rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/dev/base_include b/dev/base_include index 2699551a5f..1d43e64dfa 100644 --- a/dev/base_include +++ b/dev/base_include @@ -210,7 +210,8 @@ let pf_e gl s = Constrintern.interp_constr (pf_env gl) (project gl) (parse_constr s);; (* Set usual printing since the global env is available from the tracer *) -let _ = Constrextern.in_debugger := false +let _ = Flags.in_debugger := false +let _ = Flags.in_toplevel := true let _ = Constrextern.set_extern_reference (fun loc _ r -> Libnames.Qualid (loc,Nametab.shortest_qualid_of_global Idset.empty r));; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 4fedbec8e9..6bf2949677 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -552,6 +552,6 @@ let short_string_of_ref loc _ = function (* Anticipate that printers can be used from ocamldebug and that pretty-printer should not make calls to the global env since ocamldebug runs in a different process and does not have the proper env at hand *) -let _ = Constrextern.in_debugger := true +let _ = Flags.in_debugger := true let _ = Constrextern.set_extern_reference (if !rawdebug then raw_string_of_ref else short_string_of_ref) |