233def binaryFloatQuiet =
234 (lambda unrestricted format : (family BinaryFloatFormat) .
235 (lambda unrestricted bits : Nat .
236 (specSelect
237 (nat-less-than (binaryFloatFraction format bits) (binaryFloatQuietBit format))
238 (nat-add bits (binaryFloatQuietBit format))
239 bits)))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.