diff options
| author | Gaëtan Gilbert | 2019-05-16 14:32:09 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-05-16 15:40:50 +0200 |
| commit | 11533785773269d9632ef8925ed34ea2d541818b (patch) | |
| tree | a814044c27d45a10373c5a42739ad302c29e00ce /library/libnames.ml | |
| parent | 21269d0fef6794a672c36abdc5760889adc0e09c (diff) | |
Fix #10176: shadowing vs automatic class based generalization
Diffstat (limited to 'library/libnames.ml')
| -rw-r--r-- | library/libnames.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index 87c4de42e8..41b38e0378 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -162,6 +162,9 @@ let qualid_basename qid = let qualid_path qid = qid.CAst.v.dirpath +let idset_mem_qualid qid s = + qualid_is_ident qid && Id.Set.mem (qualid_basename qid) s + (* Default paths *) let default_library = Names.DirPath.initial (* = ["Top"] *) |