aboutsummaryrefslogtreecommitdiff
path: root/kernel/nativelambda.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-11-09 18:26:21 +0100
committerPierre-Marie Pédrot2020-11-12 13:59:22 +0100
commit9cf424839dd7aa1b2ed26e2ed12c9c618969e3b0 (patch)
tree258650a01e5925b1e344662df220e7c371f6584f /kernel/nativelambda.ml
parentc12471f1c5192ba1f18adac2109913c7b55ae50b (diff)
Merge the Linked and LinkedInteractive constructors.
There was not any difference between those after the cleanup patches that come before.
Diffstat (limited to 'kernel/nativelambda.ml')
-rw-r--r--kernel/nativelambda.ml2
1 files changed, 0 insertions, 2 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml
index e98e97907a..18f16f427d 100644
--- a/kernel/nativelambda.ml
+++ b/kernel/nativelambda.ml
@@ -111,14 +111,12 @@ let get_mind_prefix env mind =
match !name with
| NotLinked -> ""
| Linked s -> s
- | LinkedInteractive s -> s
let get_const_prefix env c =
let _,(nameref,_) = lookup_constant_key c env in
match !nameref with
| NotLinked -> ""
| Linked s -> s
- | LinkedInteractive s -> s
(* A generic map function *)