Minor fix for REPL type printing

The old code worked, but triggered a contract
violation when contracts were enabled.

original commit: 8f0c298b6d6c16be93ca521005dfe531166263d8

pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/core.rkt

@@ -93,7 +93,7 @@
                                [(tc-results: t)
                                 (define tcs (map cleanup-type t))
                                 (define tgs (map generalize tcs))
-                                (define tgs-val (make-Values tgs))
+                                (define tgs-val (make-Values (map -result tgs)))
                                 (define formatted (pretty-format-type tgs-val #:indent 4))
                                 (define indented? (regexp-match? #rx"\n" formatted))
                                 (format "- : ~a~a~a\n"