diff options
| author | Pierre-Marie Pédrot | 2014-03-05 21:39:39 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-03-05 21:39:39 +0100 |
| commit | 00df486efd76070b6c3673071050565e0ed4466e (patch) | |
| tree | ef98cd2acfee9bcbea02d664833bb4a586fa4f87 /toplevel | |
| parent | 2a0d260c9c80c07844605fcb6844bb9cfdfeb0fd (diff) | |
Using HMaps in Safe_env.environments, hopefully improving performances.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 3951190832..29297058eb 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -264,7 +264,7 @@ let print_namespace ns = | _ -> false in let constants = (Environ.pre_env (Global.env ())).Pre_env.env_globals.Pre_env.env_constants in let constants_in_namespace = - Cmap_env.fold (fun c (body,_) acc -> + Pre_env.Constants.fold (fun c (body,_) acc -> let kn = user_con c in if matches (modpath kn) then acc++fnl()++hov 2 (print_constant kn body) |