print attribute goals alongside variable bindings as a single, unified goals

This commit is contained in:
Mark Thom
2019-03-24 00:26:29 -06:00
parent 0351936a58
commit 11198fdb31
3 changed files with 32 additions and 20 deletions

View File

@@ -22,7 +22,7 @@ freeze(X, Goal) :-
gather_freeze_goals(Attrs, _, _) :-
var(Attrs), !.
gather_freeze_goals([frozen(X) | _], Var, [frozen(Var, X) | _]) :-
gather_freeze_goals([frozen(X) | _], Var, [freeze(Var, X) | _]) :-
!.
gather_freeze_goals([_ | Attrs], Var, Goals) :-
gather_freeze_goals(Attrs, Var, Goals).