Fix parsing error with ~ versus -

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

diff --git a/lib/int63_on_64.ml b/lib/int63_on_64.ml
index 96a4d6c..bcddd32 100644 (file)
--- a/lib/int63_on_64.ml
+++ b/lib/int63_on_64.ml
@@ -41,7 +41,7 @@ end
 
 let zero = 0
 let one = 1
-let minus_one = ~1
+let minus_one = (-1)
 
 external neg : int -> int = "%negint"