<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">/* **********************************************************
	module for basic transaction functions
*********************************************************** */

% create a list of N unique and uninstantiated args
%
createpreds(0,[]).
createpreds(N,[_|L]) :-
	N&gt;0, M is N-1, createpreds(M,L).

% change the functor of Pred to Name and return the new predicate as NewPred
%
changefunctor(Pred,Name,NewPred) :-
	Pred =.. [_|Args],
	NewPred =.. [Name|Args].

dbase(Pred) :-
	deleting(tr),
	call(Pred),
	inserting(tr).

</pre></body></html>