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