From a440c19b44e44c0ea28ce07b7eff2d0b30addf24 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 5 Jul 2005 02:41:26 +0000 Subject: [PATCH] Missed removing cenv from one of the typecheck-expression calls. svn: r343 --- collects/honu/private/typechecker/typecheck-class-utils.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 + )