diff options
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index 8f42d76c28..c86a2428c0 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -31,15 +31,12 @@ let ids_of_list l = let locate_reference qid = match Nametab.extended_locate qid with - | TrueGlobal ref -> ref - | SyntacticDef kn -> - match Syntax_def.search_syntactic_definition dummy_loc kn with - | [],ARef ref -> ref - | _ -> raise Not_found + | TrueGlobal ref -> true + | SyntacticDef kn -> true let is_global id = try - let _ = locate_reference (make_short_qualid id) in true + locate_reference (make_short_qualid id) with Not_found -> false |