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

Fix a couple typos found by mflatt and the optimzer.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-04-30 19:11:11 -04:00
parent db5d59a217
commit 31aa47f136
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/types/resolve.rkt
View File

@ -39,8 +39,8 @@
(tc-error "Structure type constructor ~a applied to non-regular arguments ~a" rator rands)) (tc-error "Structure type constructor ~a applied to non-regular arguments ~a" rator rands))
(let ([r (resolve-name rator)]) (let ([r (resolve-name rator)])
(and r (resolve-app r rands stx)))] (and r (resolve-app r rands stx)))]
[(Mu: _ _) (resolve-app (unfold rator) rands)] [(Mu: _ _) (resolve-app (unfold rator) rands stx)]
[(App: r r* s) (resolve-app (resolve-app r r* s) rands)] [(App: r r* s) (resolve-app (resolve-app r r* s) rands stx)]
[_ (tc-error "cannot apply a non-polymorphic type: ~a" rator)]))) [_ (tc-error "cannot apply a non-polymorphic type: ~a" rator)])))
(define (needs-resolving? t) (define (needs-resolving? t)

2
collects/typed-scheme/types/subtype.rkt
View File

@ -106,7 +106,7 @@
(if (if
;; if s is optional, t must be as well ;; if s is optional, t must be as well
(or rs (not rt)) (or rs (not rt))
(loop (subtype A tt ts) rest-t rest-s) (loop (subtype* A tt ts) rest-t rest-s)
(fail! t s))] (fail! t s))]
;; extra keywords in t are ok ;; extra keywords in t are ok
;; we just ignore them ;; we just ignore them