Skip to content
Snippets Groups Projects
Commit db640d47 authored by David Bühler's avatar David Bühler
Browse files

[Eva] Fixes the error message of option -eva-builtin.

parent 23ad1517
No related branches found
No related tags found
No related merge requests found
...@@ -918,13 +918,13 @@ module BuiltinsOverrides = ...@@ -918,13 +918,13 @@ module BuiltinsOverrides =
begin match nameopt with begin match nameopt with
| Some name -> | Some name ->
if not (!Db.Value.mem_builtin name) then if not (!Db.Value.mem_builtin name) then
abort "option '-val-builtin %a:%s': undeclared builtin '%s'@.\ abort "option '-eva-builtin %a:%s': undeclared builtin '%s'@.\
declared builtins: @[%a@]" declared builtins: @[%a@]"
Kernel_function.pretty kf name name Kernel_function.pretty kf name name
(Pretty_utils.pp_list ~sep:",@ " Format.pp_print_string) (Pretty_utils.pp_list ~sep:",@ " Format.pp_print_string)
(List.map fst (!Db.Value.registered_builtins ())) (List.map fst (!Db.Value.registered_builtins ()))
| _ -> abort | _ -> abort
"option '-val-builtin':@ \ "option '-eva-builtin':@ \
no builtin associated to function '%a',@ use '%a:<builtin>'" no builtin associated to function '%a',@ use '%a:<builtin>'"
Kernel_function.pretty kf Kernel_function.pretty kf Kernel_function.pretty kf Kernel_function.pretty kf
end; end;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment