remove debugging writeln
This commit is contained in:
parent
bb80c8d61c
commit
6c10e49eb8
@ -61,7 +61,6 @@ user:goal_expansion(maplist(Meta, ListIn, ListOut), Mod, Goal) :-
|
|||||||
pred_name(maplist, 3, Proto, GoalName),
|
pred_name(maplist, 3, Proto, GoalName),
|
||||||
append(MetaVars, [ListIn, ListOut], GoalArgs),
|
append(MetaVars, [ListIn, ListOut], GoalArgs),
|
||||||
Goal =.. [GoalName|GoalArgs],
|
Goal =.. [GoalName|GoalArgs],
|
||||||
writeln(g:Goal),
|
|
||||||
% the new predicate declaration
|
% the new predicate declaration
|
||||||
HeadPrefix =.. [GoalName|PredVars],
|
HeadPrefix =.. [GoalName|PredVars],
|
||||||
append_args(HeadPrefix, [[], []], Base),
|
append_args(HeadPrefix, [[], []], Base),
|
||||||
|
Reference in New Issue
Block a user