Make Bottom generalize to Any instead of Integer.

pkgs/racket-pkgs/racket-test/tests/racket/benchmarks/shootout/typed/reversecomplement.rktl

@@ -1,6 +1,7 @@
 ;; The Computer Language Benchmarks Game
 ;; http://shootout.alioth.debian.org/
 
+(: translation (Vectorof Integer))
 (define translation (make-vector 128))
 
 (for: ([from : Char (in-string "ACGTUMRWSYKVHDBN")]

pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/generalize.rkt

@@ -20,6 +20,7 @@
         [(Value: '()) (-lst Univ)]
         [(Value: 0) -Int]
         [(List: ts) (-lst (apply Un ts))]
+        [(? (lambda (t) (subtype t -Bottom))) Univ]
         [(? (lambda (t) (subtype t -Int))) -Int]
         [(? (lambda (t) (subtype t -Rat))) -Rat]
         [(? (lambda (t) (subtype t -Flonum))) -Flonum]

pkgs/typed-racket-pkgs/typed-racket-tests/tests/typed-racket/unit-tests/typecheck-tests.rkt

@@ -1692,6 +1692,7 @@
    (tc-l #"foo" -Bytes)
    [tc-l () (-val null)]
    [tc-l (3 . 4) (-pair -PosByte -PosByte)]
+   [tc-l #hash() (make-Hashtable Univ Univ)]
    [tc-l #hash((1 . 2) (3 . 4)) (make-Hashtable -Integer -Integer)]
    [tc-l #hasheq((a . q) (b . w)) (make-Hashtable -Symbol -Symbol)])
    [tc-l #hash{[:a . :b]}