X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Ftest_int63.ml;h=7291c7cbc214ea9c4472136d8529c87b33d29254;hb=15ea8d7da6be553a1a21611df57466144c56f129;hp=6ce121b7b0259ce56b3f29fead4c66e561d1aa33;hpb=8c2be1f021e65637f24b0ecd1907f7a069e347a2;p=virt-df.git

diff --git a/lib/test_int63.ml b/lib/test_int63.ml
index 6ce121b..7291c7c 100644
--- a/lib/test_int63.ml
+++ b/lib/test_int63.ml
@@ -3,5 +3,5 @@ open Int63.Operators
 
 let () =
   let a = ~^3 *^ ~^500 in
-  let b = a <<^ 3 in
+  let b = a <^< 3 in
   printf "result = %s\n" (Int63.to_string b)