From f1db420317a53eacf3dfb08b8121ea06ad1ca5b5 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Mon, 19 Jul 2010 12:03:58 -0700 Subject: Fix over-optimistic resolution of self-methods within obj scopes. There is no such feature in the language at present. Add test to prevent regression. Closes #114. --- src/boot/me/semant.ml | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/boot') diff --git a/src/boot/me/semant.ml b/src/boot/me/semant.ml index 789a2360..1992bf93 100644 --- a/src/boot/me/semant.ml +++ b/src/boot/me/semant.ml @@ -1758,11 +1758,7 @@ and lookup_by_ident check_slots scopes f.Ast.fn_input_slots | Ast.MOD_ITEM_obj obj -> - begin - match htab_search obj.Ast.obj_fns ident with - Some fn -> found cx scopes fn.id - | None -> check_slots scopes obj.Ast.obj_state - end + check_slots scopes obj.Ast.obj_state | Ast.MOD_ITEM_mod md -> project_ident_from_items cx lchk -- cgit v1.2.3