add dynamic module resolution calls

2019-01-06 00:15:32 -07:00
parent 387bdb4da6
commit c9f6ab984f
7 changed files with 86 additions and 74 deletions
--- a/src/prolog/lib/builtins.pl
+++ b/src/prolog/lib/builtins.pl
@@ -60,6 +60,13 @@ true.

 false :- '$fail'.

+% dynamic module resolution.
+
+Module : Predicate :-
+    ( atom(Module) -> '$module_call'(Module, Predicate)
+    ; throw(error(type_error(atom, Module), (:)))
+    ).
+
 % flags.

 current_prolog_flag(Flag, false) :- Flag == bounded, !.