never print Void as a val

2017-09-25 21:12:37 -04:00 · 2017-09-25 21:12:37 -04:00 · ff1446f85e
commit ff1446f85e
parent 8aa05bebff
1 changed files with 2 additions and 1 deletions
--- a/typed-racket-lib/typed-racket/types/printer.rkt
+++ b/typed-racket-lib/typed-racket/types/printer.rkt
@ -620,7 +620,8 @@
    ;; values like characters (when `display`ed)
    ;; (comes after Intersection since Val-able will match
    ;;  when an element of an intersection is a val)
-    [(Val-able: v) (format "~v" v)]
+    [(Val-able: v) (cond [(void? v) 'Void]
+                         [else (format "~v" v)])]
    [(? Base?) (Base-name type)]
    [(Pair: l r) `(Pairof ,(t->s l) ,(t->s r))]
    [(ListDots: dty dbound) `(List ,(t->s dty) ... ,dbound)]