aboutsummaryrefslogtreecommitdiff
path: root/contrib/interface/centaur.ml
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/interface/centaur.ml')
-rw-r--r--contrib/interface/centaur.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/centaur.ml b/contrib/interface/centaur.ml
index e4c852f7fd..4e069c11cf 100644
--- a/contrib/interface/centaur.ml
+++ b/contrib/interface/centaur.ml
@@ -389,7 +389,7 @@ let inspect n =
sp, Lib.Leaf lobj ->
(match sp, object_tag lobj with
_, "VARIABLE" ->
- let ((_, _, v), _, _) = get_variable sp in
+ let ((_, _, v), _) = get_variable sp in
add_search2 (Nametab.locate (qualid_of_sp sp)) v
| sp, ("CONSTANT"|"PARAMETER") ->
let {const_type=typ} = Global.lookup_constant sp in