From 84dd8c4d51a2eb10b31dce7b1ea6f9be01fdfe63 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 19 Aug 2008 19:40:38 +0000 Subject: [PATCH] Print struct names without []. svn: r11340 original commit: 79b4f2d078f09f89ecc5a12d0fc179bb4ffb77c5 --- collects/typed-scheme/private/type-effect-printer.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/type-effect-printer.ss b/collects/typed-scheme/private/type-effect-printer.ss index b4fbcc44..d5c7957f 100644 --- a/collects/typed-scheme/private/type-effect-printer.ss +++ b/collects/typed-scheme/private/type-effect-printer.ss @@ -70,7 +70,7 @@ [(Univ:) (fp "Any")] [(? has-name?) (fp "~a" (has-name? c))] ;; names are just the printed as the original syntax - [(Name: stx) (fp "[~a]" (syntax-e stx))] + [(Name: stx) (fp "~a" (syntax-e stx))] [(App: rator rands stx) (fp "~a" (cons rator rands))] ;; special cases for lists