   # list of tuples where the first element is the field
   # and the second is its default value.
   defp parse_record({_name, fields}, form) do
-    cons = List.foldr fields, {nil, 0}, fn f, acc ->
-      {:cons, 0, parse_field(f), acc}
-    end
+    cons = List.foldr(fields, {nil, 0}, fn f, acc -> {:cons, 0, parse_field(f), acc} end)
     eval_record(cons, form)
   end
 

  defp extract_record(name, file) do
    form = read_file(file)
    records = extract_records(form)
    if record = List.keyfind(records, name, 0) do
      parse_record(record, form)
    else

  end

  defp eval_record(cons, form) do
    form = form ++ [{:function, 0, :hello, 0, [{:clause, 0, [], [], [cons]}]}]

    {:function, 0, :hello, 0, [{:clause, 0, [], [], [record_ast]}]} =
      :erl_expand_records.module(form, []) |> List.last()

    {:value, record, _} = :erl_eval.expr(record_ast, [])
    record
