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

expand goals in initialization directives.

Browse Source
This commit is contained in:
Mark Thom
2019-10-01 23:25:17 -06:00
parent c0ad3231f5
commit 239ffb205b
2 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/prolog/toplevel.pl
View File

@@ -72,3 +72,19 @@ use_module(Module, QualifiedExports) :-
)
; throw(error(instantiation_error, use_module/2))
).
% expand goals in initialization directives.
user:term_expansion(Term0, (:- initialization(ExpandedGoals))) :-
nonvar(Term0),
Term0 = (:- initialization(Goals)),
expand_goals(Goals, ExpandedGoals).
expand_goals(Goals, ExpandedGoals) :-
nonvar(Goals),
var(ExpandedGoals),
( Goals = (Goal0, Goals0) ->
( expand_goal(Goal0, Goal1) -> expand_goals(Goals0, Goals1), ExpandedGoals = (Goal1, Goals1)
; expand_goals(Goals0, Goals1), ExpandedGoals = (Goal0, Goals1)
)
; expand_goal(Goals, ExpandedGoals), !
).