Fix minor contract violation in REPL messages

2015-02-11 02:24:52 -05:00 · 2015-02-11 02:24:52 -05:00 · 50f2271917
commit 50f2271917
parent c00cc17e07
1 changed files with 2 additions and 1 deletions
--- a/typed-racket-lib/typed-racket/core.rkt
+++ b/typed-racket-lib/typed-racket/core.rkt
@ -113,7 +113,8 @@
                       (cond [(andmap equal? tgs tcs) ""]
                             [indented?
                              (format "\n[more precisely: ~a]"
-                                      (pretty-format-type (make-Values tcs) #:indent 17))]
+                                      (pretty-format-type (make-Values (map -result tcs))
+                                                          #:indent 17))]
                             [else (format " [more precisely: ~a]" (cons 'Values tcs))])
                       ;; did any get pruned?
                       (cond [(andmap equal? t tcs) ""]