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

Fix augment type printing

Browse Source 
original commit: e80c4d72fb3ef7ee86915d17d5c6d5e1837bc800
This commit is contained in:
Asumu Takikawa 2013-08-21 17:25:14 -04:00
parent c07f80cc07
commit 97c6350e87
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt
View File

@ -356,8 +356,7 @@
(match-define (list name type) name+type)
`(,name ,(type->sexp type))))
(define augments*
(cond [(null? augments) '()]
[object? augments]
(cond [(or object? (null? augments)) '()]
[else (list (cons 'augment augments))]))
`(,(if object? 'Object 'Class)
,@row-var* ,@inits* ,@fields* ,@methods* ,@augments*))