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

Fix contract, remove comment signature

Browse Source
This commit is contained in:
Asumu Takikawa 2015-03-11 17:53:22 -04:00
parent 61b8e098e6
commit 197cdeac9b
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
typed-racket-lib/typed-racket/typecheck/tc-structs.rkt
View File

@ -56,9 +56,8 @@
;; parse name field of struct, determining whether a parent struct was specified
;; syntax any -> (values identifier Option[Name] Option[Struct])
(define/cond-contract (parse-parent nm/par prefab?)
(c:-> syntax? (values identifier? (c:or/c Name? #f) (c:or/c Mu? Poly? Struct? Prefab? #f)))
(c:-> syntax? c:any/c (values identifier? (c:or/c Name? #f) (c:or/c Mu? Poly? Struct? Prefab? #f)))
(syntax-parse nm/par
[v:parent
(if (attribute v.par)