From c2069900aa534d49b6c07eea8f5ab2fb70a26aa2 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Thu, 28 Mar 2024 17:25:54 +0100
Subject: Fix an issue

---
 compiler/Errors.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compiler/Errors.ml')

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
-- 
cgit v1.2.3