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