pseudo-random: tiny cleanup

lukstafi · Mar 20, 2024 · d513862 · d513862
1 parent c5102c3
commit d513862
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/minidebug_runtime.ml b/minidebug_runtime.ml
@@ -717,11 +717,11 @@ module PrintBox (Log_to : Shared_config) = struct
     fun () ->
       let ( + ) = Int32.add in
       let ( mod ) = Int32.rem in
-      (rand := Int32.(logxor !rand (shift_left !rand 13)));
+      rand := logxor !rand (shift_left !rand 13);
       let r = to_int (128l + 64l + (!rand mod 50l)) in
-      (rand := Int32.(logxor !rand (shift_right_logical !rand 17)));
+      rand := logxor !rand (shift_right_logical !rand 17);
       let g = to_int (128l + 64l + (!rand mod 50l)) in
-      (rand := Int32.(logxor !rand (shift_left !rand 5)));
+      rand := logxor !rand (shift_left !rand 5);
       let b = to_int (128l + 64l + (!rand mod 50l)) in
       Printf.sprintf "%x%x%x" r g b