diff options
| -rw-r--r-- | lib/flags.ml | 3 | ||||
| -rw-r--r-- | lib/flags.mli | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index f62ed20e5d..af40e946e9 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -57,7 +57,7 @@ let record_print = ref true (* Current means no particular compatibility consideration. For correct comparisons, this constructor should remain the last one. *) -type compat_version = V8_2 | V8_3 | Current +type compat_version = V8_2 | V8_3 | V8_4 | Current let compat_version = ref Current let version_strictly_greater v = !compat_version > v let version_less_or_equal v = not (version_strictly_greater v) @@ -65,6 +65,7 @@ let version_less_or_equal v = not (version_strictly_greater v) let pr_version = function | V8_2 -> "8.2" | V8_3 -> "8.3" + | V8_4 -> "8.4" | Current -> "current" (* Translate *) diff --git a/lib/flags.mli b/lib/flags.mli index c170c2669a..9dbe2c68c1 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -28,7 +28,7 @@ val load_proofs : load_proofs ref val raw_print : bool ref val record_print : bool ref -type compat_version = V8_2 | V8_3 | Current +type compat_version = V8_2 | V8_3 | V8_4 | Current val compat_version : compat_version ref val version_strictly_greater : compat_version -> bool val version_less_or_equal : compat_version -> bool |