suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix sign property of n-ary division.

Browse Source 
Found using random testing. Found 4 times.
This commit is contained in:
Vincent St-Amour 2015-11-05 16:29:39 -06:00
parent 23de6a654e
commit 5ce00a90d2
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
typed-racket-lib/typed-racket/base-env/base-env-numeric.rkt
View File

@ -1165,7 +1165,7 @@
(commutative-case -InexactReal (Un -PosRat -NegRat -InexactReal) -InexactReal)
(varop-1+ -InexactReal)
;; reals
(varop-1+ -NonNegReal -NonNegReal)
(varop-1+ -PosReal -NonNegReal)
(-> -NonPosReal -NonPosReal)
(-> -NegReal -NegReal -NonNegReal) ; 0.0 is non-neg, but doesn't preserve sign
(-> -NegReal -PosReal -NonPosReal) ; idem

1
typed-racket-test/unit-tests/typecheck-tests.rkt
View File

@ -459,6 +459,7 @@
(tc-e (expt -0.0f0 -3.0) -InexactReal)
(tc-e (expt -8.665778974912815f+107 -677460115195106837726964554590085563061636191189747) -Number)
(tc-e (expt (sin +inf.f) +nan.0+nan.0i) -Number)
(tc-e (/ (gcd 1 0) -0.0f0 2.718281828459045) -Real)
(tc-e (exact->inexact 3) -PosFlonum)
(tc-e (exact->inexact -3) -NegFlonum)
(tc-e (real->double-flonum 0.0) -FlonumPosZero)