suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r343
This commit is contained in:
Stevie Strickland 2005-07-05 02:41:26 +00:00
parent 73b1b12558
commit a440c19b44
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/honu/private/typechecker/typecheck-class-utils.ss
View File

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