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

= can equate values with different types.

Browse Source 
Closes PR 12804.
This commit is contained in:
Sam Tobin-Hochstadt 2012-06-03 10:25:25 -04:00
parent cc0b887106
commit cbbd889621
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/typed-racket/unit-tests/typecheck-tests.rkt
View File

@ -1406,6 +1406,10 @@
[tc-e/t (ann #() (Vectorof Integer)) [tc-e/t (ann #() (Vectorof Integer))
(-vec -Integer)] (-vec -Integer)]
[tc-e (let: ([x : Float 0.0])
(= 0 x))
#:ret (ret -Boolean (-FS -top -top) (make-NoObject))]
[tc-e/t (ann (lambda: ([x : Boolean]) (if x x #t)) (Boolean -> #t)) (t:-> -Boolean (-val #t))] [tc-e/t (ann (lambda: ([x : Boolean]) (if x x #t)) (Boolean -> #t)) (t:-> -Boolean (-val #t))]
) )
(test-suite (test-suite

1
collects/typed-racket/typecheck/tc-app.rkt
View File

@ -52,7 +52,6 @@
(define-syntax-rule (alt nm pred ...) (and (free-identifier=? #'nm comparator) (or (pred val) ...))) (define-syntax-rule (alt nm pred ...) (and (free-identifier=? #'nm comparator) (or (pred val) ...)))
(or (alt symbol=? symbol?) (or (alt symbol=? symbol?)
(alt string=? string?) (alt string=? string?)
(alt = number?)
(alt eq? eq?-able) (alt eq? eq?-able)
(alt eqv? eqv?-able) (alt eqv? eqv?-able)
(alt equal? equal?-able))) (alt equal? equal?-able)))