diff options
Diffstat (limited to 'kernel/nativelambda.ml')
| -rw-r--r-- | kernel/nativelambda.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index 8058eb0aa..cfb128d50 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -90,17 +90,15 @@ let get_mind_prefix env mind = let mib = lookup_mind mind env in match !(mib.mind_native_name) with | NotLinked -> "" - | Linked s -> s - | LinkedLazy s -> s - | LinkedInteractive s -> s + | Linked (s,_) -> s + | LinkedInteractive (s,_) -> s let get_const_prefix env c = let cb = lookup_constant c env in match !(cb.const_native_name) with | NotLinked -> "" - | Linked s -> s - | LinkedLazy s -> s - | LinkedInteractive s -> s + | Linked (s,_) -> s + | LinkedInteractive (s,_) -> s (* A generic map function *) |