let iter_description fwrn fdep d =
    iter_dnodes
      (fun d ->
         List.iter fwrn d.dn_warn ;
         List.iter fdep d.dn_depends ;
      ) d