comparison src/fns.c @ 8367:31ceccb9982d

(Frandom): Fix previous change.

8366:3be9c6b57956

	 are less random than the higher ones.  We do this by using the
	 quotient rather than the remainder.  At the high end of the RNG
	 it's possible to get a quotient larger than limit; discarding
	 these values eliminates the bias that would otherwise appear
	 when using a large limit.  */
      denominator = (unsigned long)0xc0000000 / XFASTINT (limit);
      do
	val = (random () & 0x3fffffff) / denominator;
      while (val >= limit);
    }
  else

8367:31ceccb9982d

	 are less random than the higher ones.  We do this by using the
	 quotient rather than the remainder.  At the high end of the RNG
	 it's possible to get a quotient larger than limit; discarding
	 these values eliminates the bias that would otherwise appear
	 when using a large limit.  */
      denominator = (unsigned long)0x40000000 / XFASTINT (limit);
      do
	val = (random () & 0x3fffffff) / denominator;
      while (val >= limit);
    }
  else