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/libnames.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/libnames.ml')
| -rw-r--r-- | library/libnames.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index cdaec6a3d..36b46ca49 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -13,7 +13,7 @@ open Names (**********************************************) -let pr_dirpath sl = (str (DirPath.to_string sl)) +let pr_dirpath sl = str (DirPath.to_string sl) (*s Operations on dirpaths *) @@ -197,7 +197,7 @@ let string_of_reference = function let pr_reference = function | Qualid (_,qid) -> pr_qualid qid - | Ident (_,id) -> str (Id.to_string id) + | Ident (_,id) -> Id.print id let loc_of_reference = function | Qualid (loc,qid) -> loc |