diff --git a/collects/honu/private/typechecker/typecheck-class-utils.ss b/collects/honu/private/typechecker/typecheck-class-utils.ss index c9cd01de7f..c8596d91be 100644 --- a/collects/honu/private/typechecker/typecheck-class-utils.ss +++ b/collects/honu/private/typechecker/typecheck-class-utils.ss @@ -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)) @@ -273,4 +273,4 @@ (make-tuple-type stx (map honu:formal-type args)) type)])) - ) \ No newline at end of file + )