(* If no target was set on the command line, use "all ()". *)
let targets =
if targets <> [] then targets
- else [Ast.ECall ("all", [])] in
+ else [Ast.ECall (Ast.noloc, "all", [])] in
- (*Ast.print_env stdout env;*)
+ Ast.print_env stdout env;
(* Evaluate the target expressions in turn. *)
- Eval.evaluate env targets
+ Eval.evaluate_targets env targets
let () = main ()