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