Remove duplicate case in infer.
This commit is contained in:
parent
03373d1189
commit
e5d4aed2fb
|
@ -570,8 +570,6 @@
|
||||||
(for/or ([t (in-list (list -Byte -Index -NonNegFixnum -Nat))])
|
(for/or ([t (in-list (list -Byte -Index -NonNegFixnum -Nat))])
|
||||||
(and (subtype S t) t)))
|
(and (subtype S t) t)))
|
||||||
(% cg type t*)]
|
(% cg type t*)]
|
||||||
[((Vector: t) (Sequence: (list t*)))
|
|
||||||
(cg t t*)]
|
|
||||||
[((Hashtable: k v) (Sequence: (list k* v*)))
|
[((Hashtable: k v) (Sequence: (list k* v*)))
|
||||||
(cgen/list V X Y (list k v) (list k* v*))]
|
(cgen/list V X Y (list k v) (list k* v*))]
|
||||||
[((Set: t) (Sequence: (list t*)))
|
[((Set: t) (Sequence: (list t*)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user