&& -> & etc.

[virt-df.git] / lib / int63_on_32.ml

diff --git a/lib/int63_on_32.ml b/lib/int63_on_32.ml
index 0b23d49..c57a4ed 100644 (file)
--- a/lib/int63_on_32.ml
+++ b/lib/int63_on_32.ml
@@ -35,9 +35,9 @@ module Operators = struct
   external ( %^ ) : int64 -> int64 -> int64 = "%int64_mod"
   external ( <^< ) : int64 -> int -> int64 = "%int64_lsl"
   external ( >^> ) : int64 -> int -> int64 = "%int64_lsr"
-  external ( &&^ ) : int64 -> int64 -> int64 = "%int64_and"
-  external ( ||^ ) : int64 -> int64 -> int64 = "%int64_or"
-  external ( ^^^ ) : int64 -> int64 -> int64 = "%int64_xor"
+  external ( &^ ) : int64 -> int64 -> int64 = "%int64_and"
+  external ( |^ ) : int64 -> int64 -> int64 = "%int64_or"
+  external ( ^^ ) : int64 -> int64 -> int64 = "%int64_xor"
   external ( ~^ ) : int -> int64 = "%int64_of_int"
   let ( ~^~ ) i = Int64.neg (Int64.of_int i)
 end