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

Cleanup types of fx+

Browse Source 
Fix case for two Bytes which should be Index not PosIndex.
This commit is contained in:
Eric Dobson 2015-04-09 22:45:14 -07:00
parent 86d5845bc4
commit b6a53b8916
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -118,11 +118,10 @@
(define fx+-type
(lambda ()
(fx-from-cases
(binop -Zero)
(map (lambda (t) (commutative-binop t -Zero t))
(list -One -PosByte -Byte -PosIndex -Index))
(-> -Zero -Int -Fixnum : -true-filter : (-arg-path 1))
(-> -Int -Zero -Fixnum : -true-filter : (-arg-path 0))
(commutative-binop -PosByte -Byte -PosIndex)
(-Byte -Byte . -> . -PosIndex)
(binop -Byte -Index)
;; in other cases, either we stay within fixnum range, or we error
(commutative-binop -Pos -Nat -PosFixnum)
(-Nat -Nat . -> . -NonNegFixnum)