let clear () = begin Hashtbl.clear scriptbase ; scriptfile := None ; needback := false ; needsave := false ; end