503
503
read_mfile(eof, _Fd, SoFar) ->
504
504
{ok,lists:reverse(SoFar)};
505
read_mfile({error,Reason} ,_Fd, _SoFar) ->
507
505
read_mfile([$# | _Comment], Fd, SoFar) ->
508
506
read_mfile(read_line(Fd), Fd, SoFar);
509
507
read_mfile([], Fd, SoFar) ->