Make order-of-magnitude more specific

(order-of-magnitude n) is only negative if n < 1. Hence it is non-negative for all positive integers.
This commit is contained in:
TwoPoint7182818 2015-03-15 17:33:35 -04:00 committed by mrm
parent 193f3c49c6
commit 911036c2a6

View File

@ -87,7 +87,7 @@
[real->floating-point-bytes (->opt -Real (one-of/c 4 8) [Univ -Bytes -Nat] -Bytes)]
[system-big-endian? (-> B)]
[order-of-magnitude (-> -PosReal -Int)]
[order-of-magnitude (cl-> [(-PosInt) -Nat] [(-PosReal) -Int])]
;; Section 4.2.5.3 (ExtFlonum-Bytes Conversions)
[floating-point-bytes->extfl (->opt -Bytes [Univ -Nat -Nat] -ExtFlonum)]