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

Removed unsafe optimization on fixnums.

Browse Source 
original commit: ae88abd5c849b664e4720fb0ac20b29c684b2a2b
This commit is contained in:
Vincent St-Amour 2010-09-07 16:49:13 -04:00
parent 0df6f293ce
commit a50913b597
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/optimizer/fixnum.rkt
View File

@ -36,7 +36,7 @@
;; closed on fixnums, but 2nd argument must not be 0
(define-syntax-class nonzero-fixnum-binary-op
#:commit
(pattern (~or (~literal quotient) (~literal fxquotient)) #:with unsafe #'unsafe-fxquotient)
;; quotient is not closed. (quotient most-negative-fixnum -1) is not a fixnum
(pattern (~or (~literal modulo) (~literal fxmodulo)) #:with unsafe #'unsafe-fxmodulo)
(pattern (~or (~literal remainder) (~literal fxremainder)) #:with unsafe #'unsafe-fxremainder))