Adaptation de #load au nouveau format de .cma

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2996 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

toplevel/topdirs.ml

@@ -104,7 +104,7 @@ let dir_load ppf name =
         let toc_pos = input_binary_int ic in  (* Go to table of contents *)
         seek_in ic toc_pos;
         List.iter (load_compunit ic filename ppf)
-                  (input_value ic : compilation_unit list)
+                  (input_value ic : library).lib_units
       end else fprintf ppf "File %s is not a bytecode object file.@." name
     with Load_failed -> ()
     end;