fixed a potentially incorrect division in WeylGroups

M2/Macaulay2/packages/WeylGroups.m2

@@ -545,7 +545,7 @@ scalarProduct(RootSystem,ZZ,ZZ) := (R,i,j) ->
 --the scalar product of two general weights
 scalarProduct(RootSystem,Weight,Weight) := (R,u,v) -> 
 	(
-	sum apply(apply(entries((R.CartanMatrixTrInv)*u),entries(v),(x,y)->x*y),R.RootNorms,(x,y)->x*y)//2
+	sum apply(apply(entries((R.CartanMatrixTrInv)*u),entries(v),(x,y)->x*y),R.RootNorms,(x,y)->x*y) / 2
 	)
 
 --the scalar product of the i-th fundamental weight with a general weight