aboutsummaryrefslogtreecommitdiff
path: root/pretyping
diff options
context:
space:
mode:
authorppedrot2012-01-30 18:17:13 +0000
committerppedrot2012-01-30 18:17:13 +0000
commitf1c54f39609fd2e13fb339a6a94f9f500f7af3a5 (patch)
tree9ccb296cce573b392bd6e33d7fa6fcbc70fed615 /pretyping
parent47e9afaaa4c08aca97d4f4b5a89cb40da76bd850 (diff)
Added an pattern / occurence syntax for vm_compute.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14950 85f007b7-540e-0410-9357-904b9bb8a0f7
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