Fix printing of * in -> types

(cherry picked from commit 38af459049)
This commit is contained in:
Asumu Takikawa 2014-10-09 16:11:36 -04:00 committed by Ryan Culpepper
parent 91036cea81
commit e285d00983

View File

@ -214,7 +214,7 @@
(if req?
(format "~a ~a" k (type->sexp t))
(format "[~a ~a]" k (type->sexp t)))]))
(if rest `(,(type->sexp rest) '*) null)
(if rest `(,(type->sexp rest) *) null)
(if drest `(,(type->sexp (car drest)) ... ,(cdr drest)) null)
(match rng
[(AnyValues: (Top:)) '(AnyValues)]