List.fold_left
(fun collected_styles key ->
let (key, stylesheet) =
- List.find (fun (k, _) -> k = key) stylesheets
+ try
+ List.find (fun (k, _) -> k = key) stylesheets
+ with Not_found -> raise (Stylesheet_not_found key)
in
(key, Gdome_xslt.processStylesheet stylesheet)::collected_styles)
[]