let savescripts () =
  if !scriptmodified then
    match !scriptfile with
      | None -> ()
      | Some file ->
          try dump_scripts file ; scriptmodified := false
          with e ->
            Wp_parameters.abort
              "Error when dumping script file '%s':@\n%s" file
              (Printexc.to_string e)