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

Added type signatures for operations on inexact complexes and floats.

Browse Source 
original commit: a31d7b60c8e6911f7b77c3a6f96af2c37da36b9e
This commit is contained in:
Vincent St-Amour 2010-07-19 11:50:39 -04:00
parent 545a02dfe6
commit 53f7550b51
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -240,6 +240,8 @@
(list (->* (list -Pos) -Flonum -Flonum))
(list (->* (list -Flonum) -Pos -Flonum))
(list (->* (list) -Real -Real))
(list (->* (list -Flonum) -InexactComplex -InexactComplex))
(list (->* (list -InexactComplex) -Flonum -InexactComplex))
(list (->* (list) -InexactComplex -InexactComplex))
(list (->* (list) N N))))]
[+ (apply cl->*
@ -253,8 +255,8 @@
(list (->* (list -Flonum) -Real -Flonum))
(list (->* (list -Real -Flonum) -Real -Flonum))
(list (->* (list) -Real -Real))
(list (->* (list -Real) -InexactComplex -InexactComplex))
(list (->* (list -InexactComplex) -Real -InexactComplex))
(list (->* (list N) -InexactComplex -InexactComplex))
(list (->* (list -InexactComplex) N -InexactComplex))
(list (->* (list) -InexactComplex -InexactComplex))
(list (->* (list) N N))))]
@ -264,8 +266,8 @@
(list (->* (list -Flonum) -Real -Flonum))
(list (->* (list -Real -Flonum) -Real -Flonum))
(list (->* (list -Real) -Real -Real))
(list (->* (list -Real) -InexactComplex -InexactComplex))
(list (->* (list -InexactComplex) -Real -InexactComplex))
(list (->* (list N) -InexactComplex -InexactComplex))
(list (->* (list -InexactComplex) N -InexactComplex))
(list (->* (list -InexactComplex) -InexactComplex -InexactComplex))
(list (->* (list N) N N))))]
[/ (apply cl->*
@ -275,6 +277,8 @@
;; only exact 0 as first argument can cause the result of a division involving inexacts to be exact
(list (->* (list -Flonum) -Real -Flonum))
(list (->* (list -Real) -Real -Real))
(list (->* (list -Flonum) -InexactComplex -InexactComplex))
(list (->* (list -InexactComplex) -Flonum -InexactComplex))
(list (->* (list -InexactComplex) -InexactComplex -InexactComplex))
(list (->* (list N) N N))))]