remove debugging writeln

This commit is contained in:
Vitor Santos Costa 2009-04-26 10:56:19 -05:00
parent bb80c8d61c
commit 6c10e49eb8

View File

@ -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),