Project

General

Profile

Revision 521e2a6b src/compiler_common.ml

View differences:

src/compiler_common.ml
25 25
  begin
26 26
    if not (Sys.file_exists !Options.dest_dir) then
27 27
      begin
28
	Log.report ~level:1 (fun fmt -> fprintf fmt ".. creating destination directory@,");
28
	Log.report ~level:1 (fun fmt -> fprintf fmt ".. creating destination directory@ ");
29 29
	Unix.mkdir !Options.dest_dir (Unix.stat ".").Unix.st_perm
30 30
      end;
31 31
    if (Unix.stat !Options.dest_dir).Unix.st_kind <> Unix.S_DIR then
......
69 69

  
70 70
  (* Parsing *)
71 71
  Log.report ~level:1 
72
    (fun fmt -> fprintf fmt ".. parsing source file %s@," source_name);
72
    (fun fmt -> fprintf fmt ".. parsing source file %s@ " source_name);
73 73
  try
74 74
    let prog = Parse.prog Parser_lustre.prog Lexer_lustre.token lexbuf in
75 75
    (*ignore (Modules.load_program ISet.empty prog);*)

Also available in: Unified diff