diff options
Diffstat (limited to 'compiler/Errors.ml')
| -rw-r--r-- | compiler/Errors.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/Errors.ml b/compiler/Errors.ml index 3b34397a..6057362e 100644 --- a/compiler/Errors.ml +++ b/compiler/Errors.ml @@ -40,7 +40,7 @@ let craise_opt_meta (meta : Meta.meta option) (msg : string) = let craise (meta : Meta.meta) (msg : string) = craise_opt_meta (Some meta) msg let cassert_opt_meta (b : bool) (meta : Meta.meta option) (msg : string) = - if b then craise_opt_meta meta msg + if not b then craise_opt_meta meta msg let cassert (b : bool) (meta : Meta.meta) (msg : string) = cassert_opt_meta b (Some meta) msg |