shithub: pprolog

Info  •  Files  •  Log  •  Branches

Understand set_prolog_flag directive

--- a/loader.pl

+++ b/loader.pl

@@ -111,6 +111,8 @@

 	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).