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