From 2bda2a9d61ff3c713beff623aceea143d0f814c6 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Thu, 22 Jul 2021 18:52:14 +0000 Subject: Understand set_prolog_flag directive --- loader.pl | 2 ++ 1 file changed, 2 insertions(+) (limited to 'loader.pl') diff --git a/loader.pl b/loader.pl index 071ac58..cf0fcf3 100644 --- a/loader.pl +++ b/loader.pl @@ -111,6 +111,8 @@ handle_directive(include(F), Module, NewModule) :- close(S). handle_directive(ensure_loaded(F), Module, Module) :- ensure_load(F). +handle_directive(set_prolog_flag(Flag, Value), Module, Module) :- + Module:set_prolog_flag(Flag, Value). handle_directive(module(NewModule, Exports), Module, NewModule) :- is_atom(NewModule), '$new_empty_module'(NewModule). -- cgit v1.2.3