rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

shed module names from arguments of the (->)/2, (,)/2, (;)/2 predicates

Browse Source
This commit is contained in:
Mark Thom
2021-02-05 22:50:57 -07:00
parent 700778e574
commit bdb5df104a
2 changed files with 58 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/loader.pl
View File

@@ -398,16 +398,16 @@ predicate_property(Callable, Property) :-
).
strip_module_(M0, G0, M1, G1) :-
strip_module(M0, G0, M1, G1) :-
( nonvar(G0),
G0 = (MG1:G2) ->
strip_module_(MG1, G2, M1, G1)
strip_module(MG1, G2, M1, G1)
; M0 = M1,
G0 = G1
).
strip_module(Goal, M, G) :-
strip_module_(_, Goal, M, G).
strip_module(Goal, M, G) :-
strip_module(_, Goal, M, G).
expand_subgoal(UnexpandedGoals, MS, Module, ExpandedGoals, HeadVars) :-