aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm/vio_checking.ml
diff options
context:
space:
mode:
Diffstat (limited to 'stm/vio_checking.ml')
-rw-r--r--stm/vio_checking.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/stm/vio_checking.ml b/stm/vio_checking.ml
index b2ea3341b..9f50ab589 100644
--- a/stm/vio_checking.ml
+++ b/stm/vio_checking.ml
@@ -24,7 +24,7 @@ end
module Pool = Map.Make(IntOT)
let schedule_vio_checking j fs =
- if j < 1 then CErrors.error "The number of workers must be bigger than 0";
+ if j < 1 then CErrors.user_err Pp.(str "The number of workers must be bigger than 0");
let jobs = ref [] in
List.iter (fun f ->
let f =
@@ -98,7 +98,7 @@ let schedule_vio_checking j fs =
exit !rc
let schedule_vio_compilation j fs =
- if j < 1 then CErrors.error "The number of workers must be bigger than 0";
+ if j < 1 then CErrors.user_err Pp.(str "The number of workers must be bigger than 0");
let jobs = ref [] in
List.iter (fun f ->
let f =