день добрый

хочу прочитать список файлов в директории.

так работает:

# let get_files_list pwd =
  let rec g p =
    try
      let dsc = (Unix.readdir p) in
        dsc :: (g p)
    with End_of_file ->
    Unix.closedir p;
    [] in

  (g (Unix.opendir pwd));;

# get_files_list (Unix.getcwd ());;
- : string list = ["file1"; "file1"; "file3"]

так нет:

let get_files_list pwd =
  let rec g p =
    try
      (Unix.readdir p) :: (g p);
    with End_of_file ->
    Unix.closedir p;
    [] in

    g (Unix.opendir pwd);
;;

вопрос: почему?
хочется без лишней переменной...

--
-- via knode --