simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 19:25:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(core-logic): bad constant for ite

Browse source
This commit is contained in:
Simon Cruanes 2022-08-08 21:16:54 -04:00
parent 97a5c8efa3
commit 010451145c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core-logic/t_builtins.ml
View file

@ -61,7 +61,7 @@ let c_ite store =
DB.pi_db ~var_name:"A" store ~var_ty:type_ DB.pi_db ~var_name:"A" store ~var_ty:type_
@@ arrow_l store [ bool store; v; v ] v @@ arrow_l store [ bool store; v; v ] v
in in
const store @@ Const.make C_eq ops ~ty const store @@ Const.make C_ite ops ~ty
let c_not store = let c_not store =
let b = bool store in let b = bool store in