Fix typo.

original commit: 7ba2b6e100a9075779bdbdc0a540c8b3044587a5
This commit is contained in:
Sam Tobin-Hochstadt 2011-04-18 20:52:33 -04:00
parent 96aaa73075
commit 32eacbc3b7

View File

@ -294,7 +294,7 @@
[(s (Poly: vs b))
(=> unmatch)
(if (null? (fv b)) (subtype* A0 s b) (unmatch))]
;; rec types, applications and names (that aren't the same
;; rec types, applications and names (that aren't the same)
[((? needs-resolving? s) other)
(let ([s* (resolve-once s)])
(if (Type? s*) ;; needed in case this was a name that hasn't been resolved yet