Fix error typo

Please merge to 5.3.2
This commit is contained in:
Asumu Takikawa 2013-01-10 12:17:21 -05:00
parent 2c8e5f9acb
commit d95be2ed4d

View File

@ -269,7 +269,7 @@
(define concrete-parent (define concrete-parent
(if (Poly? parent) (if (Poly? parent)
(if (> (Poly-n parent) (length new-tvars)) (if (> (Poly-n parent) (length new-tvars))
(tc-error "Could not instantiate parent struct type. Required ~a type variables, recieved ~a." (tc-error "Could not instantiate parent struct type. Required ~a type variables, received ~a."
(Poly-n parent) (Poly-n parent)
(length new-tvars)) (length new-tvars))
(instantiate-poly parent (take new-tvars (Poly-n parent)))) (instantiate-poly parent (take new-tvars (Poly-n parent))))