Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

[typo] adding newline

Browse Source
This commit is contained in:
Arnaud DABY-SEESARAM 2022-12-13 14:57:55 +01:00
parent 51ed84504f
commit ad1f529863
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main.ml
View File

@ -91,9 +91,9 @@ let _ =
let passes = List.map (fun (pass: string) -> (pass, let passes = List.map (fun (pass: string) -> (pass,
match Hashtbl.find_opt passes_table pass with match Hashtbl.find_opt passes_table pass with
| None -> | None ->
(exit_error (Format.sprintf "The pass %s does not exist." pass); exit 0) (exit_error (Format.sprintf "The pass %s does not exist.\n" pass); exit 0)
| Some f -> | Some f ->
(print_debug ("The pass "^pass^" has been selected."); f))) !passes in (print_debug ("The pass "^pass^" has been selected.\n"); f))) !passes in
print_debug (Format.asprintf "Initial AST (before executing any passes):\n%a" print_debug (Format.asprintf "Initial AST (before executing any passes):\n%a"
Pp.pp_ast ast) ; Pp.pp_ast ast) ;