diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-18 21:39:03 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-18 21:39:03 +0200 |
| commit | 23041481ff368b0b4cfc9a2493c9f465df90ea90 (patch) | |
| tree | fa981847c7fe17b18d4453403d19df9e32b26a38 /dev/base_include | |
| parent | dbdff037af1a80d223be6e4d093417bae301c583 (diff) | |
Fix debug printing with primitive projections.
Add a flag to indicate if we're in the toplevel or debuggger to not try
to retype terms in the wrong environment (and making find_rectype,
get_type_of untraceable). This fixes bug #3638 along with the previous
commit.
Diffstat (limited to 'dev/base_include')
| -rw-r--r-- | dev/base_include | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/dev/base_include b/dev/base_include index 2699551a5..1d43e64df 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));; |