let
fold_libraries f =
Hashtbl
.fold f library_index