Generalize subtypes of Char to Char.

2017-03-31 13:25:14 +02:00 · 2017-03-31 13:25:14 +02:00 · 3d119fcb02
commit 3d119fcb02
parent 92e184e639
1 changed files with 1 additions and 0 deletions
--- a/typed-racket-lib/typed-racket/types/generalize.rkt
+++ b/typed-racket-lib/typed-racket/types/generalize.rkt
@ -28,6 +28,7 @@
        [(? (lambda (t) (subtype t -FloatComplex))) -FloatComplex]
        [(? (lambda (t) (subtype t -SingleFlonumComplex))) -SingleFlonumComplex]
        [(? (lambda (t) (subtype t -Number))) -Number]
+        [(? (lambda (t) (subtype t -Char))) -Char]
        [(? (lambda (t) (subtype t -ExtFlonum))) -ExtFlonum]
        [(Listof: _) t*]
        [(Pair: t1 (== -Null)) (-lst t1)]