diff --git a/lib/compile/bcc.ml b/lib/compile/bcc.ml index b5ac55f..e9a28c7 100644 --- a/lib/compile/bcc.ml +++ b/lib/compile/bcc.ml @@ -107,18 +107,15 @@ let rec compile_lambda (lam : Ir.lambda) = let n_slots = List.length vals in let elems = Hashtbl.create (List.length vals + List.length funs) in let mthds = Array.make (List.length funs) undef_method in - List.iteri (fun i name -> Hashtbl.add elems name (Value.Field i)) vals; - List.iteri (fun i (name, lambda) -> Hashtbl.add elems name (Value.Method i); mthds.(i) <- Code.Function (compile_lambda lambda)) funs; - emit (CON (sp, { n_slots; elems; mthds })) | ir ->