Missed removing cenv from one of the typecheck-expression calls.

svn: r343
This commit is contained in:
Stevie Strickland 2005-07-05 02:41:26 +00:00
parent 73b1b12558
commit a440c19b44

View File

@ -231,7 +231,7 @@
"Type of field is undefined"
(honu:ast-stx type)))
(let-values ([(e1 t1) (parameterize ([current-class-environment cenv])
(typecheck-expression cenv lenv type value))])
(typecheck-expression lenv type value))])
(copy-struct honu:field member
[honu:field-value e1]))]
[(struct honu:method (stx name type args body))