From 9a080010b0d9ee78a810f8122808f37ea0fc4ee2 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 4 Mar 2022 10:39:58 +0100
Subject: Fix minor mistakes with regards to extraction of external
 declarations

---
 src/Names.ml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Names.ml')

diff --git a/src/Names.ml b/src/Names.ml
index a8e6be59..41177c37 100644
--- a/src/Names.ml
+++ b/src/Names.ml
@@ -53,3 +53,10 @@ type module_name = name [@@deriving show, ord]
 type type_name = name [@@deriving show, ord]
 
 type fun_name = name [@@deriving show, ord]
+
+(** Filter the disambiguators equal to 0 in a name *)
+let filter_disambiguators_zero (n : name) : name =
+  let pred (pe : path_elem) : bool =
+    match pe with Ident _ -> true | Disambiguator d -> d <> Disambiguator.zero
+  in
+  List.filter pred n
-- 
cgit v1.2.3