Change names to the standard library names for the functions in OCaml
This commit is contained in:
parent
ea661247b6
commit
cae0dfb1aa
@ -177,9 +177,9 @@ module Simplify = struct
|
|||||||
("Big_map.literal" , "BIG_MAP_LITERAL" ) ;
|
("Big_map.literal" , "BIG_MAP_LITERAL" ) ;
|
||||||
("Big_map.empty" , "BIG_MAP_EMPTY" ) ;
|
("Big_map.empty" , "BIG_MAP_EMPTY" ) ;
|
||||||
|
|
||||||
("Bitwise.bor" , "OR") ;
|
("Bitwise.lor" , "OR") ;
|
||||||
("Bitwise.band" , "AND") ;
|
("Bitwise.land" , "AND") ;
|
||||||
("Bitwise.xor" , "XOR") ;
|
("Bitwise.lxor" , "XOR") ;
|
||||||
|
|
||||||
("String.length", "SIZE") ;
|
("String.length", "SIZE") ;
|
||||||
("String.size", "SIZE") ;
|
("String.size", "SIZE") ;
|
||||||
|
@ -1,10 +1,10 @@
|
|||||||
(* Test CameLIGO bitwise operators *)
|
(* Test CameLIGO bitwise operators *)
|
||||||
|
|
||||||
let or_op (n : nat) : nat =
|
let or_op (n : nat) : nat =
|
||||||
Bitwise.bor n 4p
|
Bitwise.lor n 4p
|
||||||
|
|
||||||
let and_op (n : nat) : nat =
|
let and_op (n : nat) : nat =
|
||||||
Bitwise.band n 7p
|
Bitwise.land n 7p
|
||||||
|
|
||||||
let xor_op (n : nat) : nat =
|
let xor_op (n : nat) : nat =
|
||||||
Bitwise.xor n 7p
|
Bitwise.lxor n 7p
|
||||||
|
Loading…
Reference in New Issue
Block a user