How to obtain the name of calling module for the predicate?

  I wrote the arity compatibility module where 'ifthenelse' and 'ifthen'
predicates are defined. They have Goals as their arguments and need to
call them. As it is unknown from  what module that goal is, the error is
generated. How I can solve this problem? THANK YOU!



[ Moderator's note:

:- tool(ifthenelse/3, ifthenelse/4).
ifthenelse(If, Then, Else, Module) :-
	(If -> Then ; Else) @ Module.

]