More precise type for sgn. Closes PR 11424.

2010-11-22 17:16:36 -05:00 · 2010-11-22 17:16:36 -05:00 · 2c74984fcd
commit 2c74984fcd
parent 698b3a6c90
1 changed files with 8 additions and 1 deletions
--- a/collects/typed-scheme/private/base-env-numeric.rkt
+++ b/collects/typed-scheme/private/base-env-numeric.rkt
@ -434,7 +434,14 @@

 ;; scheme/math

-[sgn (-Real . -> . -Real)]
+[sgn (cl->* (-Zero . -> . -Zero)
+            (-ExactPositiveInteger . -> . -PositiveFixnum)
+            (-ExactNonnegativeInteger . -> . -NonnegativeFixnum)
+            (-ExactRational . -> . -Fixnum)
+            (-Flonum . -> . -Flonum)
+            (-InexactReal . -> . -InexactReal)
+            (-Real . -> . -Real))]
+
 [pi -NonnegativeFlonum]
 [sqr (cl->* (-> -Pos -Pos)
            (-> -Integer -Nat)