diff options
Diffstat (limited to 'kernel/csymtable.ml')
-rw-r--r-- | kernel/csymtable.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml index 146b6a1ec..0111cf74d 100644 --- a/kernel/csymtable.ml +++ b/kernel/csymtable.ml @@ -92,7 +92,7 @@ let slot_for_annot key = n let rec slot_for_getglobal env kn = - let (cb,rk) = lookup_constant_key kn env in + let (cb,(_,rk)) = lookup_constant_key kn env in try key rk with NotEvaluated -> (* Pp.msgnl(str"not yet evaluated");*) |