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)