diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-12-22 22:35:09 +0100 |
---|---|---|
committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-12-22 22:35:09 +0100 |
commit | 602badcad9deec9224b78cd1e1033af30358ef2e (patch) | |
tree | e528188a52c4120fa94a5e0ff2c035874dee75cf /library/nametab.ml | |
parent | d55676344c8dc0d9a87b2ef12ec2348281db4bf5 (diff) |
Do not compose "str" and "to_string" whenever possible.
For instance, calling only Id.print is faster than calling both str and
Id.to_string, since the latter performs a copy. It also makes the code a
bit simpler to read.
Diffstat (limited to 'library/nametab.ml')
-rw-r--r-- | library/nametab.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 5b6d7cd98..621640ef9 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -523,7 +523,7 @@ let shortest_qualid_of_tactic kn = KnTab.shortest_qualid Id.Set.empty sp !the_tactictab let pr_global_env env ref = - try str (string_of_qualid (shortest_qualid_of_global env ref)) + try pr_qualid (shortest_qualid_of_global env ref) with Not_found as e -> if !Flags.debug then Pp.msg_debug (Pp.str "pr_global_env not found"); raise e |