From 989a1d6c57e546617b84946d53820eb26cccf77b Mon Sep 17 00:00:00 2001
From: Olivier Nicole <olivier@chnik.fr>
Date: Thu, 19 Sep 2024 15:11:30 +0200
Subject: [PATCH] Fix build

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

diff --git a/compiler/lib/eval.ml b/compiler/lib/eval.ml
index d8a4e48e2..21b1041dc 100644
--- a/compiler/lib/eval.ml
+++ b/compiler/lib/eval.ml
@@ -351,7 +351,7 @@ let eval_instr ~target info ((x, loc) as i) =
                 , Prim
                     ( prim
                     , List.map2 prim_args prim_args' ~f:(fun arg c ->
-                          match c, target with
+                          match (c : constant), target with
                           | Some ((Int _ | NativeString _) as c), _ -> Pc c
                           | Some (Float _ as c), `JavaScript -> Pc c
                           | Some (String _ as c), `JavaScript