aboutsummaryrefslogtreecommitdiff
path: root/kernel/closure.mli
diff options
context:
space:
mode:
Diffstat (limited to 'kernel/closure.mli')
-rw-r--r--kernel/closure.mli4
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/closure.mli b/kernel/closure.mli
index 3f36651911..52f2ad038c 100644
--- a/kernel/closure.mli
+++ b/kernel/closure.mli
@@ -97,8 +97,7 @@ val cbv_norm_value : 'a cbv_infos -> cbv_value -> constr
-(* Lazy reduction
- *)
+(* Lazy reduction *)
type 'a freeze
type 'a frterm =
| FRel of int
@@ -161,6 +160,7 @@ type case_status =
(* Constant cache *)
type 'a clos_infos
val create_clos_infos : flags -> 'a unsafe_env -> 'a clos_infos
+val clos_infos_env : 'a clos_infos -> 'a unsafe_env
(* Reduction function *)
val norm_val : 'a clos_infos -> fconstr -> constr