singles

2018-10-09 13:47:27 +01:00
parent 48e398576f
commit 9e3a768220
5 changed files with 89 additions and 79 deletions
--- a/library/maputils.yap
+++ b/library/maputils.yap
@@ -77,7 +77,7 @@ aux_args([Arg|Args], MVars, [Arg|PArgs], PVars, [Arg|ProtoArgs]) :-
 aux_args([Arg|Args], [Arg|MVars], [PVar|PArgs], [PVar|PVars], ['_'|ProtoArgs]) :-
 	aux_args(Args, MVars, PArgs, PVars, ProtoArgs).

-pred_name(Macro, Arity, _ , Name) :-
+pred_name(Macro, Arity, P , Name) :-
        prolog_load_context(file, FullFileName),
 	file_base_name( FullFileName, File ),
 	prolog_load_context(term_position, Pos),