diff options
| author | Son Ho | 2024-03-28 17:25:54 +0100 |
|---|---|---|
| committer | Son Ho | 2024-03-28 17:25:54 +0100 |
| commit | c2069900aa534d49b6c07eea8f5ab2fb70a26aa2 (patch) | |
| tree | 1e824bccedbcecbb38f616d29528a553fd34e900 /compiler/Errors.ml | |
| parent | 4eac16f0954ab037413c24a69799a9d595f920f2 (diff) | |
Fix an issue
Diffstat (limited to '')
| -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 |