diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-01-17 15:06:26 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-04-24 23:58:23 +0200 |
commit | bf13037e9ca39da28fb648e5488ce56ef8a1f1e2 (patch) | |
tree | e981dabe208b339db88188b7a5e89c53d77745a1 /interp/smartlocate.ml | |
parent | a9d151a31937724543d5269e72b0262c8764c46e (diff) |
[location] Use located in misctypes.
Diffstat (limited to 'interp/smartlocate.ml')
-rw-r--r-- | interp/smartlocate.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interp/smartlocate.ml b/interp/smartlocate.ml index d863e0561..64d260cc1 100644 --- a/interp/smartlocate.ml +++ b/interp/smartlocate.ml @@ -66,16 +66,16 @@ let global_with_alias ?head r = let smart_global ?head = function | AN r -> global_with_alias ?head r - | ByNotation (loc,ntn,sc) -> + | ByNotation (loc,(ntn,sc)) -> Notation.interp_notation_as_global_reference loc (fun _ -> true) ntn sc let smart_global_inductive = function | AN r -> global_inductive_with_alias r - | ByNotation (loc,ntn,sc) -> + | ByNotation (loc,(ntn,sc)) -> destIndRef (Notation.interp_notation_as_global_reference loc isIndRef ntn sc) let loc_of_smart_reference = function | AN r -> loc_of_reference r - | ByNotation (loc,_,_) -> loc + | ByNotation (loc,(_,_)) -> loc |