We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f51d623 commit 588a324Copy full SHA for 588a324
ocaml/typing/includecore.ml
@@ -59,7 +59,7 @@ let primitive_descriptions pd1 pd2 =
59
Some (No_alloc First)
60
else if pd1.prim_alloc && (not pd2.prim_alloc) then
61
Some (No_alloc Second)
62
- else if pd1.prim_c_builtin && pd2.prim_c_builtin then
+ else if not (Bool.equal pd1.prim_c_builtin pd2.prim_c_builtin) then
63
Some Builtin
64
else if not (Primitive.equal_effects pd1.prim_effects pd2.prim_effects) then
65
Some Effects
0 commit comments