Got rid of a broken subtyping rule.
original commit: 5a67535a950ba19846151a6f7a3f7a473affea86
This commit is contained in:
parent
8c6264008d
commit
7876c75cbc
5
collects/tests/typed-scheme/fail/log-not-complex.rkt
Normal file
5
collects/tests/typed-scheme/fail/log-not-complex.rkt
Normal file
|
@ -0,0 +1,5 @@
|
|||
#;
|
||||
(exn-pred 1)
|
||||
#lang typed/scheme
|
||||
|
||||
(ann (log 2.0) Inexact-Complex)
|
|
@ -0,0 +1,9 @@
|
|||
#;
|
||||
(
|
||||
0.6931471805599453
|
||||
)
|
||||
|
||||
#lang typed/scheme
|
||||
#:optimize
|
||||
|
||||
(real-part (log 2.0))
|
|
@ -263,7 +263,6 @@
|
|||
[((== -Fixnum =t) (Base: 'Integer _)) A0]
|
||||
|
||||
[((Base: 'Nonnegative-Flonum _) (Base: 'Flonum _)) A0]
|
||||
[((Base: 'Nonnegative-Flonum _) (Base: 'InexactComplex _)) A0]
|
||||
[((Base: 'Nonnegative-Flonum _) (Base: 'Number _)) A0]
|
||||
|
||||
[((Base: 'InexactComplex _) (Base: 'Number _)) A0]
|
||||
|
|
Loading…
Reference in New Issue
Block a user