newlines are overrated am i right
This commit is contained in:
parent
37377c044d
commit
21bc2c3cb3
|
@ -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 ->
|
||||
|
|
Loading…
Reference in New Issue