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

Small TR fixes.

Browse Source
This commit is contained in:
Eric Dobson 2013-04-22 23:50:44 -07:00
parent 55aba088de
commit a94c449ff1
2 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-racket/typecheck/tc-structs.rkt
View File

@ -39,6 +39,7 @@
;; sty : Struct?
;; names : Listof[Identifier]
;; desc : struct-desc
;; struct-info : struct-info?
;; type-only : Boolean
(struct parsed-struct (sty names desc struct-info type-only) #:transparent)
@ -90,7 +91,6 @@
((or (Poly? parent) (Mu? parent) (Struct? parent))
parent)
(else
(displayln parent0)
(tc-error/stx #'v.par "parent type not a valid structure name: ~a"
(syntax->datum #'v.par)))))])
(values #'v.name parent0 parent))