diff options
| author | Emilio Jesus Gallego Arias | 2017-01-17 15:06:26 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 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 d863e05616..64d260cc1b 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 |