let loadscripts () =
  let user = Wp_parameters.Script.get () in
  if !scriptfile <> Some user then
    begin
      savescripts () ;
      let file =
        if user = "" then
          let ftmp = choose 0 in
          Wp_parameters.warning
            "No script file specified.@\nYour proofs would be saved in '%s'@\nUse -wp-script '%s' to re-run them."
            ftmp ftmp ;
          Wp_parameters.Script.set ftmp ;
          ftmp
        else
          user
      in
      scriptfile := Some file ;
      (* keep needsave *)
      if Sys.file_exists file then
        begin
          needback := true ;
          try parse_scripts user ;
          with e ->
            Wp_parameters.abort
              "Error in script file '%s':@\n%s" user
              (Printexc.to_string e)
        end
      else
        needback := false
    end