Index: vi.ml
===================================================================
RCS file: /sun/theorie/tews/Privat/Store/Otags/vi.ml,v
retrieving revision 1.1.1.3
diff -c -r1.1.1.3 vi.ml
*** vi.ml	22 Apr 2003 13:45:02 -0000	1.1.1.3
--- vi.ml	27 Aug 2003 10:58:16 -0000
***************
*** 109,114 ****
--- 109,115 ----
    let out_file = Sys.getenv Argcamlp4.tmp in 
    let name = Filename.basename in_file in
    let modulename = String.capitalize (Filename.chop_extension name) in
+   let sini = Printf.sprintf "%s\t%s\t1;\n" modulename in_file in
    let lg_file = Entry.size_ml () in
    let fsl = make_strings in_file lg_file in
    Line.lookup fsl;
***************
*** 117,123 ****
    let chan = open_out out_file in
    begin
      header chan;
!     List.iter (output_string chan) lef;
      flush chan;
      close_out chan
    end
--- 118,124 ----
    let chan = open_out out_file in
    begin
      header chan;
!     List.iter (output_string chan) (sini :: lef);
      flush chan;
      close_out chan
    end