aboutsummaryrefslogtreecommitdiff
path: root/kernel/typeops.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2019-03-18 10:37:15 +0100
committerPierre-Marie Pédrot2019-03-18 10:37:15 +0100
commit9ac5483132b42e845a0708491843693b70893eef (patch)
tree0071caba1b8d408e5739ed7c5c8f3c4e60974bd0 /kernel/typeops.ml
parent68dd7ff4aa71ac35a5023a2f3d471af08c0d276e (diff)
parent8ade7303c7745190a9a55c2c6a20cf632ec0dacc (diff)
Merge PR #9740: Make NotConvertibleVect exception internal to typeops
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/typeops.ml')
-rw-r--r--kernel/typeops.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml
index be878dd99b..12ffbf4357 100644
--- a/kernel/typeops.ml
+++ b/kernel/typeops.ml
@@ -26,6 +26,8 @@ open Type_errors
module RelDecl = Context.Rel.Declaration
module NamedDecl = Context.Named.Declaration
+exception NotConvertibleVect of int
+
let conv_leq l2r env x y = default_conv CUMUL ~l2r env x y
let conv_leq_vecti env v1 v2 =