suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Print struct names without [].

Browse Source 
svn: r11340
This commit is contained in:
Sam Tobin-Hochstadt 2008-08-19 19:40:38 +00:00
parent cff3200cf4
commit 79b4f2d078
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/private/type-effect-printer.ss
View File

@ -70,7 +70,7 @@
[(Univ:) (fp "Any")] [(Univ:) (fp "Any")]
[(? has-name?) (fp "~a" (has-name? c))] [(? has-name?) (fp "~a" (has-name? c))]
;; names are just the printed as the original syntax ;; 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) [(App: rator rands stx)
(fp "~a" (cons rator rands))] (fp "~a" (cons rator rands))]
;; special cases for lists ;; special cases for lists