Fix printing of * in -> types

original commit: 38af459049819ecac24de6b349440e6c589703f9
This commit is contained in:
Asumu Takikawa 2014-10-09 16:11:36 -04:00
parent 2ff47d2e06
commit b4b666f9f2

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)]