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

[Eva] Only prepares cvalue builtins once. Fixes [is_builtin_overridden].

parent c5e3c905
No related branches found
No related tags found
No related merge requests found
......@@ -204,14 +204,15 @@ let prepare_builtins () =
(* Overrides builtins attribution according to the -eva-builtin option. *)
Parameters.BuiltinsOverrides.iter
(fun (kf, name) ->
prepare_builtin kf (Hashtbl.find table (Option.get name)))
prepare_builtin kf (Hashtbl.find table (Option.get name)));
BuiltinsOverride.mark_as_computed ()
let find_builtin_override = Hashtbl.find_opt builtins_table
let is_builtin_overridden name =
let is_builtin_overridden kf =
if not (BuiltinsOverride.is_computed ())
then prepare_builtins ();
BuiltinsOverride.mem name
BuiltinsOverride.mem kf
(* -------------------------------------------------------------------------- *)
(* --- Applying a builtin --- *)
......
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