diff options
Diffstat (limited to 'stdlib/source/library/lux/math/number/frac.lux')
| -rw-r--r-- | stdlib/source/library/lux/math/number/frac.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/math/number/frac.lux b/stdlib/source/library/lux/math/number/frac.lux index 9dce6d30b..981424626 100644 --- a/stdlib/source/library/lux/math/number/frac.lux +++ b/stdlib/source/library/lux/math/number/frac.lux @@ -296,7 +296,7 @@ ($_ //i64.or (//i64.left_shifted ..sign_offset sign_bit) (//i64.left_shifted ..exponent_offset exponent_bits) - (//i64.clear ..mantissa_size mantissa_bits))) + (//i64.zero ..mantissa_size mantissa_bits))) ))) (template [<getter> <size> <offset>] @@ -336,13 +336,13 @@ [mantissa power] (if (//nat.< ..mantissa_size E) [(if (//nat.= 0 E) M - (//i64.set ..mantissa_size M)) + (//i64.one ..mantissa_size M)) (|> E (//nat.- ..double_bias) .int (//int.max ..min_exponent) (//int.- (.int ..mantissa_size)))] - [(//i64.set ..mantissa_size M) + [(//i64.one ..mantissa_size M) (|> E (//nat.- ..double_bias) (//nat.- ..mantissa_size) .int)]) exponent (///.pow (//int.frac power) +2.0)] (|> (//nat.frac mantissa) @@ -419,7 +419,7 @@ ($_ //i64.or (//i64.left_shifted ..sign_offset (.i64 sign)) (//i64.left_shifted ..mantissa_size (.i64 (//int.+ (.int ..double_bias) exponent))) - (//i64.clear ..mantissa_size (.i64 mantissa)))))) + (//i64.zero ..mantissa_size (.i64 mantissa)))))) (#try.Failure ("lux text concat" <error> representation))))))] [binary //nat.binary //int.binary "Invalid binary syntax: "] |