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

Tighten type of fx*

Browse Source 
Make multiplication by Zero return Zero and by One return the other arg.
This commit is contained in:
Eric Dobson 2015-04-09 22:58:58 -07:00
parent 6bc24fdf83
commit c923663e55
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,8 +147,9 @@
(define fx*-type
(lambda ()
(fx-from-cases
(map binop (list -Zero -One))
(commutative-binop -Zero -Int)
(-> -One -Int -Fixnum : -true-filter : (-arg-path 1))
(-> -Int -One -Fixnum : -true-filter : (-arg-path 0))
(commutative-binop -Int -Zero)
(-PosByte -PosByte . -> . -PosIndex)
(-Byte -Byte . -> . -Index)
(-PosInt -PosInt . -> . -PosFixnum)