aboutsummaryrefslogtreecommitdiff
path: root/pretyping
diff options
context:
space:
mode:
Diffstat (limited to 'pretyping')
-rw-r--r--pretyping/glob_term.ml2
-rw-r--r--pretyping/glob_term.mli2
2 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/glob_term.ml b/pretyping/glob_term.ml
index a4113671f7..a736e6eecf 100644
--- a/pretyping/glob_term.ml
+++ b/pretyping/glob_term.ml
@@ -400,7 +400,7 @@ type ('a,'b,'c) red_expr_gen =
| Fold of 'a list
| Pattern of 'a with_occurrences list
| ExtraRedExpr of string
- | CbvVm
+ | CbvVm of 'c with_occurrences option
type ('a,'b,'c) may_eval =
| ConstrTerm of 'a
diff --git a/pretyping/glob_term.mli b/pretyping/glob_term.mli
index 7fb995a88f..fcd28eb8f8 100644
--- a/pretyping/glob_term.mli
+++ b/pretyping/glob_term.mli
@@ -158,7 +158,7 @@ type ('a,'b,'c) red_expr_gen =
| Fold of 'a list
| Pattern of 'a with_occurrences list
| ExtraRedExpr of string
- | CbvVm
+ | CbvVm of 'c with_occurrences option
type ('a,'b,'c) may_eval =
| ConstrTerm of 'a