179def binaryFloatExponent =
180 (lambda unrestricted format : (family BinaryFloatFormat) .
181 (lambda unrestricted bits : Nat .
182 (nat-modulo
183 (nat-divide bits (binaryFloatFractionBase format))
184 (binaryFloatExponentBase format))))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.