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

Fix type of sqr.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-03-21 16:06:11 -04:00
parent 0641d7bd78
commit 60cc8c4453
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/private/base-env-numeric.rkt
View File

@ -1683,9 +1683,10 @@
(unop -PosSingleFlonum) (unop -PosSingleFlonum)
(-> -SingleFlonum -NonNegSingleFlonum) (-> -SingleFlonum -NonNegSingleFlonum)
(unop -PosInexactReal) (unop -PosInexactReal)
(-> -InexactReal -InexactReal) (-> -InexactReal -NonNegInexactReal)
(unop -PosReal) (unop -PosReal)
(map unop (list -Real -FloatComplex -SingleFlonumComplex (-> -Real -NonNegReal)
(map unop (list -FloatComplex -SingleFlonumComplex
-InexactComplex -ExactNumber N)))] -InexactComplex -ExactNumber N)))]
[conjugate (from-cases [conjugate (from-cases
(map unop all-real-types) (map unop all-real-types)